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1. ABSTRACT 


THE RM80 DUAL PORT LOGIC TEST PERFORMS A SERIES OF 
TESTS WHICH VERIFY THAT THE RMSO DUAL PORT LOGIC 
IS FUNCTIONING PROPERLY. ONLY THE CONTROL LOGIC IS TESTED 
BY THIS PROGRAM; DATA HANDLING IN THE DUAL PORT MODE 
IS NOT TESTED BY THIS PROGRAM. 

BOTH PORTS OF THE DRIVE ARE CABLED TO THE SAME MASSBUS BY 
A SPECIAL ADAPTER CABLE. THIS ARRANGEMENT ALLOWS THE DUAL 
PORT LOGIC TO BE TESTED FROM ONE POP-11 AND RH70. 

THIS PROGRAM IS THE SECOND PART OF THE RM80 DUAL PORT 
OPTION LOGIC TEST, AND IS USED TO TEST THE *T>ORT SELECT" 
SWITCH. 


2. REQUIREMENTS 


2.1 EQUIPMENT 

PDP-11/70 PROCESSOR 
8K MEMORY 

KW11-L OR KWII-P CLOCK 
TERMINAL 
RH70 CONTROLLER 
1 - RM80 DISK DRIVE 

RM DUAL PORT TEST CABLE (P/N: 7010507-02) 

2.2 PREREQUISITE PROGRAMS 

RM80 DISKLESS TEST, PART 1 ft 2 

RM80 FUNCTIONAL TEST, PART 1,283 

RM80 DUAL PORT LOGIC TEST, PART 1 

THE PRELIMINARY PROGRAMS MUST BE RUN TWICE: ONCE FROM 
EACH PORT (A t B). 

2.3 OTHER PROGRAMS 

DYNAMIC OPERATION OF THE DUAL PORT OPTION IS TESTED 
BY THE RM80 PERFORMANCE EXERCISER PROGRAM. 
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BE INCLUDED IN AN 'XXDP* CHAIN. 


STARTING PROCEDURES 


STARTING ADDRESSES 

A. THE NORMAL STARTING ADDRESS OF THE PROGRAM IS LOCATION 
200(8). STARTING AT THIS ADDRESS ALLOWS THE OPERATOR 
TO SELECT (OR RESELECT) THE ADDRESS OF THE DRIVE TO 

BE TESTED. 

B. THE RESTART ADDRESS IS LOCATION 204(8). THE PROGRAM 
WILL USE THE CURRENT DRIVE ADDRESS. 

C. THE PROGRAM CAN BE STARTED AT LOCATION 210(8) TO ALLOW 
THE RH70 ADDRESS TO BE CHANGED. 

UNIBUS t VECTOR ADDRESS 

THE PROGRAM ASSUMES THE FOLLOWING UNIBUS AND VECTOR ADDRESSES. 
THESE ADDRESSES MAY BE CHANGED PRIOR TO STARTING THE PROGRAM 
FROM ANY OF THE STARTING LOCATIONS. 


MEMORY 

LOCATION 


CONTENTS 

177560** 

177562 

177564 

177566 

172540 

172542 

104 

177546 

100 


FUNCTION 

TTY KEYBOARD STATUS REG 
TTY KEYBOARD BUFFER REG 
TTY PRINTER STATUS REG 
TTY PRINTER BUFFER REG 
KW11-P STATUS REG 
KW11-L COUNTER BUFFER 
KWII-P VECTOR ADDRESS 
KW11-L STATUS REGISTER 
KWII-L VECTOR ADDRESS 


OPERATOR ACTION 


CONNECT THE DUAL PORT TEST CABLE BETWEEN BUS A ^ 
i^BUS B ON THE DRIVE BEING TESTED. (SEE SECTION 5.4) 

LOAD THE^OGRAM INTO MEMORY IN THE PROCESSOR CONTROLLING 
THE MASSBUS USED FOR TESTING. 

SWITCH THE ’PORT SELECT* SWITCH ON THE DRIVE TO BE 
TESTED TO THE *A/B' POSITION. CYCLE DRIVE UP. 

LOAD THE APPROPIATE STARTING ADDRESS (200(8) OR 210(8)) 

INTO THE SWITCH REGISTER (OR THE 'SOFTWARE* SWITCH REGISTER. 
SEE SECTION 5.2.) 

PRESS START.. ^ 

ENTER THE NUMBER OF THE TEST TO BE RUN. (’CARRIAGE RETURN* 

THE PROGRAM MAY BE^’STOPPEO^T ANY TIME AND RESTARTED 
FROM LOCATION 204. 
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OPERATING PROCEDURES 


'SOFTWARE' SWITCH REGISTER 

IF THE PROGRAM IS BEING RUN ON A SWITCHLESS PROCESSOR 
THE PROGRAM WILL DETERMINE THAT THE HARDWARE SWITCH REGISTER IS 
NOT PRESENT AND WILL USE A 'SOFTWARE' SWITCH REGISTER. THE 
•SOFTW/RE' SWITCH REGISTER IS LOCATED AT LOCATION 176 (8). THE 
SETTINGS OF THE 'SOFTWARE* SWITCHES ARE CONTROLLED THROUGH A KEYBOARD 
ROUTINE WHICH IS CALLED BY TYPING A 'CONTROL G*. THE PROGRAM WILL 
RECOGNIZE THE 'CONTROL 6’ AT ANY TIME EXCEPT WHEN THE PROGRAM 
IS AT A HIGHER PRIORITY PROCESSING AN RM80 INTERRUPT. THE 
'SOFTWARE' SWITCH VALUES ARE ENTERED AS AN OCTAL NUMBER IN RESPONSE 
TO THE PROMPT FROM THE SWITCH ENTRY ROUTINE: 

'SWR - NNNNNN NEW r* 

EACH TIME SWITCH SETTING ARE ENTERED, THE ENTIRE SWITCH REGISTER 
IMAGE MUST BE ENTERED. LEADING ZEROS ARE NOT REQUIRED., 'RUBOUT' AND 
'CONTROL U' FUNCTIONS NAY BE USED TO CORRECT TYPING ERRORS 
DURING SWITCH ENTRY. 

ON PROCESSORS WITH HARDWARE SWITCH REGISTERS, THE 'SOFTWARE' SWITCH 
REGISTER MAY BE USED, IF THE PROGRAM FINDS ALL 1'S IN THE SWITCHES. 
ALL SWITCH REGISTER REFERENCES WILL BE TO THE 'SOFTWARE' REGISTER 
AND THE PROCEDURES DESCRIBED ABOVE MUST BE FOLLOWED. 

OPERATIONAL SWITCH SETTINGS 

WITH ALL SWITCHES SET TO ZERO. THE PROGRAM WILL TYPE 
ALL ERRORS AND CONTINUE TESTING. 

THE SWITCH SETTINGS ARE: 


SW<15>s1 

SW<H>=1 

SW<13>=1 

SH<11>»1 

SH<10>=1 

SW<09>=1 

TEST SELECTION 


HALT ON ERROR 
LOOP ON TEST 
INHIBIT ERROR TYPEOUTS 
INHIBIT TEST ITERATIONS 
RING TTY BELL ON ERROR 
LOOP ON ERROR 


INDIVIDUAL TESTS ARE SELECTED IN RESPONSE TO THE 'ENTER 
TEST NUMBER:* MESSAGE. ANY VALID TEST NUMBER CAN BE 
ENTERED. EACH ENTRY MUST BE TERMINATED BY A CARRIAGE 
RETURN (CR). THE LOOP ON TEST SWITCH. SW<14>. MUST BE SET 
TO ALL CONTINUOUS EXECUTION OF THE SELECTED TEST. 

TO RUN ALL TESTS IN SEQUENCE, ENTER EITHER A *0' FOLLOWED 
BY A CARRIAGE RETURN OR A CARRIAGE RETURN BY ITSELF. THE 
PROGRAM WILL THEN EXECUTE ALL TESTS IN SEQUENCE. 

THE 'RUBOUT KEY* (RO) CAN BE USED TO DELETE THE LAST 
CHARACTER ENTERED. SUCCESSIVELY STRIKING THE RO KEY 
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WILL DELETE CHARACTERS UNTIL THE PREVIOUS CHARACTERS HAVE 
BEEN DELETED. CHARACTERS DELETED BY THE RO KEY WILL BE 
TYPED AND WILL BE SEPARATED BY 'S’ FROM THE CHARACTERS 
ENTERED BY THE OPERATOR. 

THE OPERATOR CAN DELETE AN ENTIRE ENTRY BY TYPING A 
•CONTROL U* . 

TEST CABLE CONNECTION 

TO TEST THE RM80 DUAL PORT OPTION WITH THIS PROGRAM. 

A SPECIAL TEST CABLE MUST BE USED. (THE TEST CABLE IS 
P/N: 7010507-02). THE TEST CABLE CONNECTS MASSBUS A i MASSBUS 
B TOGETHER AT THE DRIVE BEING TESTED AND IS CONSTRUCTED SO 
THAT BIT 0 OF THE MASSBUS UNIT SELECT LINES IS COMPLEMENTED. 

WITH THE TEST CABLE CONNECTED TO THE DRIVE UNDER TEST. 

THE DRIVE APPEARS AS TWO UNITS ON THE MASSBUS: EACH PORT 
OF THE RM80 HILL RESPOND TO A DIFFERENT MASSBUS ADDRESS. 

THE ADDRESS OF EACH PORT WILL DEPEND UPON THE DRIVE’S 
ADDRESS PLUG. 

THE PROGRAM HILL TYPEOUT THE APPARENT ADDRESSES OF BOTH 
PORTS. (ONE PORT HILL HAVE THE ADDRESS OF THE DRIVE; THE 
OTHER PORT HILL HAVE THE ADDRESS DEVELOPED BY THE CABLE). 

**ANY OTHER DRIVE ON THE MASSBUS WHICH HAS AN ADDRESS IN * 

• CONFLICT WITH EITHER OF THE TEST ADDRESSES MUST BE * 

* POWERED DOWN. •*******♦*•**•*••*« 

THE TEST CABLE CONNECTION TO THE DRIVE UNDER TEST HILL 
DEPEND ON WHICH PROCESSOR. RH CONTROLLER^IS TO TEST THE DRIVE. 

IF THE DRIVE IS TO BE TEStED BY THE PROCESSOR ON PORT A. 

CONNECT THE MASSBUS CABLE FROM THE RH CONTROLLER TO J3 OF THE 
RM ADAPTER BACK PANEL. THEN CONNECT THE TEST CABLE (P/N: 7010507-02) 
FROM J2 TO J7 OF THE 6aCK PANEL AND TERMINATE THE PORT B AT J6. 

WHEN THE DUAL PORT TEST CABLE IS CONNECTED. THE ATTENTION 
BITS FOR PORTS At B ARE ASSERTED IN THE SAME BIT POSITION 
WHEN ’wUs* (ATTENTION SUMMARY REGISTER) IS RE».^ THE ATTENTION 
BIT POSITION IS DETERMINED BY THE ADDRESS OF THE DRIVE. 

THE ATTENTION BIT THAT APPEARS FOR THE DRIVE IS THE 
INCLUSIVE ’OR’ OF THE PORT A t PORT B ATTENTION BITS. BECAUSE 
OF THIS, THE PROGRAM LOOKS AT ONLY THE ATTENTION BIT IN 
’RMDS’ (DRIVE STATUS REGISTER) TO DETERMINE THE STATE 
OF THE SELECTED PORT’S ATTENTION BIT. 


ERRORS 

WHEN THE PROGRAM ENCOUNTERS AN ERROR. THE ERROR ROUTINE IS 
CALLED AND IF SW<13> IS NOT SET. THE ERROR MESSAGE PERTAINING 
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TO THE ERROR HILL BE TYPED. EACH ERROR TYPEOUT HILL CONTAIN 
THE FOLLOWING: 

A. AN ERROR MESSAGE 

B. A DATA HEADER LINE 

C. A DATA LINE CONTAINING: 

1 THE TEST NUMBER 

2*. THE PC (PROGRAM COUNTER VALUE) WHERE THE ERROR 
CALL WAS MADE 

3. CONTENTS OF THE APPROPIATE REGISTERS 


MISCELLANEOUS 


RESTRICTIONS 

TO RUN THIS PROGRAM, THE SYSTEM MUST HAVE EITHER A KH11-P 
OR A KH11-L CLOCK. ADDITIONALLY, THE RM80 UNDER TEST 
MUST HAVE THE DUAL PORT TEST CABLE CONNECTED. 

LIMITATIONS 

THIS PROGRAM DOES NOT TEST DATA TRANSFERS THROUGH EITHER 
PORT AND DOES NOT TEST THE DYNAMIC OPERATION OF THE DUAL 
PORT OPTION. 

EXECUTION TIME 

THE PROGRAM TAKES ABOUT 7 MINUTES PER PASS (DEPENDING ON 
OPERATOR INTERVENTION EFFICIENCY). 

REQUIRED TESTS 

IF THE PROGRAM IS BEING EXECUTED IN SINGLE TEST MODE, THE^^ 
OPERATOR MUST CALL AND RUN THE FOLLOWING TESTS BEFORE OTHER 
TESTS ARE RUN: 

A. TEST 2 AND TEST 3. THESE TESTS SET ’VV-A* AND •VV-B* 
RESPECTIVELY. THESE TESTS MUST BE PERFORMED AT LEAST ONCE 
BEFORE TESTS 4 - 10 ARE RUN. 

B. TEST 4 AND TEST 5. THESE TESTS DETERMINE AND STORE FOR 
LATER USE THE TIMEOUT ONE-SHOT VALUE MEASURED THROUGH 

EACH PORT. THESE TESfS MUST BE PERFORMED AT LEAST ONCE BEFORE 
TESTS 6 - 10 ARE RUN. 

DISK SURFACE USAGE 

THE DIAGNOSTIC DOES NOT USE THE DISK SURFACE. HOWEVER, THE 
DRIVE MUST BE CYCLED UP AND ON-LINE FOR THE DIAGNOSTIC TO BE 
RUN. 


7.8 


LOOP ON ERROR OPTION 
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IF :U<09> IS SET, THE PROGRAM WILL LOOP ON A FAILING TEST 
UNTIL EITHER THE SWITCH IS RESET OR THE ERROR STOPS 0CCURIN6. 
BECAUSE THE PROGRAM MUST RESET THE RM80 TO A KNOWN STATE 
BEFORE LOOPING ON THE ERROR, THE TEST FOR SU<09> IS PERFORMED 
AT THE END OF THE TEST - NOT AT THE POINT WHERE THE ERROR 
WAS DETECTED. 


8. TEST DESCRIPTIONS 


8.1 METHOD USED TO VERIFY THAT DRIVE IS IN NEUTRAL 

THE PROGRAM DETERMINES THE THE DRIVE IS IN NEUTRAL BY CHECKING 
THE CONTENTS OF THE DRIVE STATUS REGISTER (RMDS) THROUGH 
BOTH PORTS. THE PROGRAM MASKS OUT THE PORT DEPENDENT BITS 
CATA* ft 'VV') AND VERIFIES THAT CORRECT STATUS IS READ 
THROUGH BOTH PORTS. ( THE CORRECT STATUS IS 'MOL', ’PGM’, 
•DPR', ft ’DRY'.) IF NEITHER PORT SEES ALL ZEROS FROM 
RMDS, THE PROGRAM CONCLUDES THAT THE DRIVE IS IN NEUTRAL 
AND THAT ANY BIT DISCREPANCY BETWEEN PORTS INDICATES A 
FAILURE IN THE PATH FOR THAT BIT. 

8.2 METHOD USED TO VERIFY THAT THE DRIVE HAS BEEN SEIZED 

THE PROGRAM VERIFIES THAT THE DRIVE HAS BEEN SEIZED BY 
CHECKING THE DRIVE STATUS REGISTER (RMDS) THROUGH 

THE Seizing port and verifing that correct status is 

SEEN. WHEN RMDS IS READ THROUGH THE OPPOSITE PORT, 

ZEROS SHOULD BE SEEN. IF BOTH CONDITIONS EXIST, (I.E., 

THE OPPOSITE PORT), THE PROGRAM CONCLUDES THAT THE DRIVE 
HAS BEEN SEIZED BY THE SPECIFIED PORT. 


TEST 1 DRIVE ACCESS TEST 

VERIFY THAT THE DRIVE CAN BE ACCESSED THROUGH BOTH PORTS 

A. SELECT DRIVE, VERIFY THAT THE DRIVE IS PRESENT. THAT THE 

DRIVE IS A DUAL PORT RM80, THAT THE DRIVE IS ONLINE (RMDS HAS 
•MOL’, ‘PGM*, 'DPR', ft 'DRY* BITS SET), AND THE THE DRIVE SERIAL 
NUMBER READ THROUGH BOTH PORTS IS THE SAME. 

B. THE TEST IS REPEATED THROUGH BOTH PORTS. 


TEST 2 SET 'VV* FOR PORT A 
SET VOLUME VALID 

A. ISSUE A DRIVE CLEAR COMMAND THROUGH PORT A. 

B. ISSUE A READIN PRESET COMMAND THROUGH PORT A. VERIFY 

THAT THE 'VV BIT IS SET FOR PORT A. 

C. ISSUE A RELEASE COMMAND THROUGH PORT A. VERIFY THAT 

THE DRIVE RETURNED TO NEUTRAL AND THAT NEITHER ATTENTION 
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BIT IS SET. 


TEST 3 SET 'VV FOR PORT B 
SET VOLUME VALID 

A. ISSUE A DRIVE CLEAR COMMAND THROUGH PORT 6. 

B. ISSUE A READIN PRESET COMMAND THROUGH PORT B. VERIFY 

THAT THE 'VV BIT IS SET FOR PORT B. 

C. ISSUE A RELEASE COMMAND THROUGH PORT B. VERIFY THAT 

THE DRIVE RETURNED TO NEUTRAL AND THAT NEITHER ATTENTION 
BIT IS SET. 


TEST 4 MEASURE THE TIMEOUT ONE-SHOT THROUGH PORT A 
MEASURE THE TIMEOUT ONE-SHOT VALUE THROUGH PORT A 

A. WRITE O’S INTO RMDS THROUGH PORT A AND VERIFY THAT THE 

DRIVE HAS BEEN SEIZED. 

B. WAIT FOR TIMEOUT TO OCCUR. MEASURE THE DURATION OF THE TIMEOUT 

ONE-SHOT AND SAVE THE VALUE FOR LATER USE. 

C. VERIFY THAT THE TIMEOUT OCCURRED AND THAT THE DRIVE RETURNS 

TO NEUTRAL 


TEST 5 MEASURE THE TIMEOUT ONE-SHOT THROUGH PORT B 
MEASURE THE TIMEOUT ONE-SHOT VALUE THROUGH PORT B 

A. WRITE O'S INTO RMDS THROUGH PORT B AND VERIFY THAT THE 

DRIVE HAS BEEN SEIZED. 

B. WAIT FOR TIMEOUT TO OCCUR. MEASURE THE DURATION OF THE TIMEOUT 

ONE-SHOT AND SAVE THE VALUE FOR LATER USE. 

C. VERIFY THAT THE TIMEOUT OCCURRED AND THAT THE DRIVE RETURNS 

TO NEUTRAL 


TEST 

TEST 

A. 

B. 


6 TEST 'PORT SELECT' SWITCH, DRIVE CYCLED UP 

THE OPERATION OF THE 'PORT SELECT' SWITCH (DRIVE CYCLED UP). 

SWITCH TO PORT 'A' POSITION. VERIFY THAT THE DRIVE IS IN 
NEUTRAL AND THAT THE STATUS BITS IN RMDS, AS READ THROUGH BOTH 
PORTS, ARE CORRECT. 

SWITCH TO PORT 'B' POSITION. VERIFY THAT THE DRIVE IS IN 
NEUTRAL AND THAT THE STATUS BITS IN RMDS, AS READ THROUGH BOTH 
PORTS, ARE CORRECT. 
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C. RETURN THE ’PORT SELECT’ SWITCH TO THE 'A/S' POSITION. VERIFY 
THE DRIVE STATE. 

TEST 7 TEST ’PORT SELECT’ SWITCH LOCKED ON PORT A 

TEST THE OPERATION OF THE ’PORT SELECT’ SWITCH (DRIVE CYCLED DOWN). 

A. CYCLE THE DRIVE DOWN. 

B. SWITCH TO PORT ’A’ POSITION. VERIFY THAT THE DRIVE IS IN 

NEUTRAL AND THAT THE STATUS BITS IN RMDS, AS READ THROUGH BOTH 
PORTS, ARE CORRECT. 

C. SWITCH THE ’PORT SELECT’ SWITCH TO A; CYCLE THE DRIVE UP. 

D. WHEN THE DRIVE CYCLES UP, VERIFY THAT ’VV-A’ IS RESET, AND THAT 

’ATA-A’ IS SET. 

E. ISSUE A DRIVE CLEAR COMMAND AND A READIN PRESET COMMAND THROUGH 

PORT A. 

F. VERIFY THAT THE DRIVE CANNOT BE ACCESSED THROUGH PORT B AA® 

’NED’ SETS WHEN ATEMPTING TO ACCESS THE DRIVE THROUGH 
PORT B. ATTEMPT TO SET PORT REQUEST BY WRITING O’S 
INTO RMDS THROUGH PORT B. 

G. ISSUE A RELEASE COMMAND THROUGH PORT A. VERIFY THAT THE 

DRIVE REMAINS LOCKED ON PORT A. 

TEST 10 TEST ’PORT SELECT’ SWITCH LOCKED ON PORT B 

TEST THE OPERATION OF THE ’PORT SELECT’ SWITCH (DRIVE CYCLED DOWN). 

A. CYCLE THE DRIVE DOWN. 

B. SWITCH TO PORT ’8’ POSITION, VERIFY THAT THE DRIVE IS IN^ _ 

NEUTRAL A«> THAT THE STATUS BITS IN RMDS, AS READ THROUGH BOTH 
PORTS, ARE CORRECT. 

C. SWITCH THE ’PORT SELECT’ SWITCH TO B; CYCLE THE DRIVE UP. 

D. WHEN THE DRIVE CYCLES UP, VERIFY THAT ’VV-B IS RESET. AND 

THAT ’ATA-e IS SET. 

E. ISSUE A DRIVE CLEAR COMMAND AND A READIN PRESET COMMAND THROUGH 

PORT B. 

F. VERIFY THAT THE DRIVE CANNOT BE ACCESSED THROUWfWT A AND 

’NED* SETS WHEN ATEMPTING TO ACCESS THE DRIVE THROUGH 
PORT A. ATTEMPT TO SET PORT REQUEST BY WRITING O’S 
INTO RMDS THROUGH PORT A. 

G. ISSUE A RELEASE COMMAND THROUGH PORT B. VERIFY THAT THE 

DRIVE REMAINS LOCKED ON PORT 6. 



1 


L 
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464 


H. CYCLE THE DRIVE DOWN. CHANGE THE 'PORT SELECT' SWITCH TO 

A/8; CYCLE THE DRIVE UP. 

I. VERIFY THAT BOTH PORTS CAN ACCESS THE DRIVE, THAT BOTH ATTENTION 

BITS ARE SET, AND THAT BOTH 'VV BITS ARE RESET. 
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;E0 0012 


1 

509 

510 
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001100 

104000 

000004 


000011 

000012 

000015 

000200 

177776 

177776 

177774 

177772 

177570 

177570 


000000 

000001 

000002 

000003 

000004 

000005 

000006 

000007 

000006 

000007 


000000 

000040 


;*LAST REVISION 04-AU6-81 

TITLE CZRNIAO RMOO DUAL PORT PT2 
COPYRIGHT (C) 1982 
DIGITAL EQUIPMENT CORPORATION 
COLORADO SPGS., CO. 80919 

PROGRAM BY MIKE LEAVITT 

THIS PROGRAM WAS ASSEMBLED USING THE PDP-11 MAINDEC SYSMAC 
PACKAGE (MAINDEC-11-DZQAC-C5). 18-MAR-81 


!sbttl 

OPERATIONAL 

SWITCH SETTINGS 

; * 

SWITCH 

USE 

;* 

15 

HALT ON ERROR 

; * 

14 

LOOP ON test 

; * 

13 

INHIBIT ERROR TYPEOUTS 

; * 

11 

INHIBIT ITERATIONS 

; * 

10 

BELL ON ERROR 

; * 

9 

LOOP ON ERROR 

.SBTTL 

BASIC DEFINITIONS 

.'^INITIAL ADDRESS OF 

THE STACK POINTER *** 1100 *** 

STACK 

= 1100 


ERROR 

= EMT 

;:BASIC DEFINITION OF ERROR 

SCOPE 

= lOT 

.'.'BASIC DEFINITION OF SCOPE 


;*MISCELLANEOUS DEFINITIONS 


HT 
LF 
CR 
CRLF 
PS 

PSWsPS 

STKLMT 

PIRQ 

DSWR 

DDISP 


11 
12 
15 
200 
177776 

177774 

177772 

177570 

177570 


:CODE FOR HORIZONTAL TAB 

.-CODE FOR LINE FEED 

;COOE FOR CARRIAGE RETURN 

.'CODE FOR CARRIAGE RETURN-LINE FEED 

.'PROCESSOR STATUS WORD 

: STACK LIMIT REGISTER 
: PROGRAM INTERRUPT REQUEST REGISTER 
.'HARDWARE SWITCH REGISTER 
.'HARDWARE DISPUY REGISTER 


.'*GENERAL PURPOSE REGISTER DEFINITIONS 


RO 

R1 

R2 

R3 

R4 

R5 

R6 

R7 

SP 

PC 


XO 

X2 

X3 

Z4 

X5 

Xo 

X7. 

X6 

X7 


; GENERAL REGISTER 
.'GENERAL REGISTER 
; GENERAL REGISTER 
.'GENERAL REGISTER 
.'GENERAL REGISTER 
.'GENERAL REGISTER 
.'GENERAL REGISTER 
.'GENERAL REGISTER 
.'STACK POINTER 
.'PROGRAM COUNTER 


.'*PRIORITY LEVEL DEFINITIONS 

PRO = 0 .'.'PRIORITY LEVEL 0 

PR1 = 40 ;; PRIORITY LEVEL 1 


f 
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SEQ 0013 


000100 

000140 

000200 

000240 

000300 

000340 



00200 
001 

0004,. 
000200 
000100 




PRIORITY 

PRIORITY 

PRIORITY 

PRIORITY 

PRIORITY 

PRIORITY 


LEVEL 2 
LEVEL 3 
LEVEL 4 
LEVEL 5 
LEVEL 6 
LEVEL 7 


;*‘*SWITCH REGISTER" SWITCH DEFINITIONS 

SU15 - 100000 

SU14 = 40000 

SU13 = 20000 

SU12 = 10000 

sun = 4000 

SW10 • 2000 

SU09 = 1000 

SU08 - 400 

SU07 s 200 

SU06 = 100 

SU05 - 40 

SU04 = 20 

SU03 - 10 

SU02 = 4 

SU01 = 2 

SUOO s 1 

SU9=SU09 

SUS^SUOS 

SU7»SU07 

SU6=SU06 

SU5sSU05 

SW4-SU04 

SU3sSU03 

SW2-SU02 

SU1::SU01 

SWO-SUOO 

;*OATA BIT DEf JWTJONS (BITOO TO BIT15) 

BJT15 s 100000 

BJT14 » 40000 

BIT13 = 20000 

BIT12 - 10000 

Biril s 4000 

B1T10 s 2000 

B1T09 s 1000 

SifSf 

BIT06 * 100 

BJTQS > 40 

B1T04 s 20 

BIT03 - 10 

B1T02 = 4 

BIT01 * 2 

Blf$^IT69^ 

BiTBseiTOS 

BIT7sSIT07 


I 


SEQ 0014 
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000020 

000010 

000004 

000002 

000001 



001000 

002000 

020000 

040000 

100000 


000002 

000004 

000010 

000020 









vl' 

VP 





010000 

020000 

040000 


BIT4=BIT04 

BIT3sBIT03 

B1T2=B1T02 

BITIsBITOI 

BITO=BITOO 


; •BASIC "CPU" TRAP VECTOR 

ADDRESSES 

ERRVEC = 4 

.’TIME OUT AND OTHER ERRORS 

RESVEC =10 

:RESERVED AND ILLEGAL INSTRUCTIONS 

TBITVEC =14 

.’•r* BIT 

TRTVEC =14 

; TRACE TRAP 

BPTVEC =14 

.’BREAKPOINT TRAP (BPT) 

lOTVEC = 20 

; INPUT/OUTPUT TRAP (lOT) ••SCOPE** 

PURVEC = 24 

.’POWER FAIL 

EMTVEC = 30 

.’EMULATOR TRAP (EMT) ••ERROR** 

TRAPVEC = 34 

.’"TRAP" TRAP 

TKVEC = 60 

;TTY KEYBOARD VECTOR 

TPVEC = 64 

;TTY PRINTER VECTOR 

PIRQVEC = 240 

.’PROGRAM INTERRUPT REQUEST VECTOR 


.SBTTL RH CONTROLLER REGISTERS 
.CONTROL AND STATUS REGISTER 1 (RMCS1) 


100 

200 

400 

1000 

2000 

20000 

40000 

100000 


INTERRUPT ENABLE (BIT #6) 

READY (BIT #7) 

HIGH ORDER BUS ADDRESS BIT (BIT MS) 
HIGH ORDER BUS ADDRESS BIT TQIT #9) 
PORT SELECT (BIT #10) 

MASSSUSS PARITY ERROR (BIT #13) 
TRANSFER ERROR (BIT #14) 

SPECIAL CONDITION (BIT #15) 


;UORD COUNT REGISTER (RMUC) 

.'(EACH BIT IS CALLED BY BIT NUMBER) 

.’BUS ADDRESS REGISTER (RMBA) 

.'(EACH BIT IS CALLED BY BIT NlfCER) 

.'CONTROL AND STATUS REGISTER 2 (RMCS2) 


UO 

U1 

U3 

BAI 

PAT 

CLR 

IR 

OR 

MDPE 

MXF 

P6E 

NEM 

NED 

UPE 

UCE 

DLT 


s 1 
* 2 
= 4 
= 10 
= 20 
= 40 
= 100 
= 200 
= 400 
= 1000 
= 2000 
r 4000 
= 10000 
= 20000 
r 40000 
> 10000C 


UNIT SELECT (BIT #0) 

UNIT SELECT (BIT #1) 

UNIT SELECT (BIT #2) 

BUS ADDRESS INCREMENT INHIBIT (BIT #3) 
MASSBUS PARITY TEST (BIT #4) 

CLEAR (BIT #5) 

INPUT READY (BIT #6) 

OUTPUT READY (BIT #7) 

NASS BUS PARITY ERROR (BIT #8) 

MISSED TRANSFER ERROR (BIT #9) 

PROGRAM ERROR (BIT #10) 

NON EXISTENT NENORY (BIT #11) 

NON EXISTENT DRIVE (BIT #12) 

UNIBUS PARITY ERROR (BIT #13) 

WRITE CHECK ERROR (BIT #14) 

DATA LATE (BIT #15) 
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SEQ 001 S 




l*lvlv 


riviv 



1 

•TlTlTlV 

• 


• 


» 



001000 

002000 

004000 

010000 

020000 

040000 

100000 


000001 

000002 

000004 

000010 

000020 

000040 

000100 

000200 

000400 

001000 

002000 

004000 

010000 


000001 


;OATA BUFFER REGISTER (RMDB) 

.-(EACH BIT IS CALLED BY BIT NUMBER) 

.SBTTL RMBO REGISTERS 

; CONTROL AND STATUS 1 REGISTER. (#00) 


GO BIT (BIT #0) 

FUNCTION CODE BIT #1 
FUNCTION CODE BIT #2 
FUNCTION CODE BIT #3 
FUNCTION CODE BIT #4 
FUNCTION CODE BIT #5 
DEVICE AVAILABLE (BIT #11) 


.•DRIVE STATUS REGISTER (RMDS) (#01) 


;DF5 

DFF20 

DIGB 

GRV 

DL64 

DEI 

VV 

DRY 

DPR 

PGM 

LBT 

URL 

MOL 

PIP 

ERR 

ATA 


1 

2 

4 

10 

20 

40 

100 

200 

400 

1000 

2000 

4000 

10000 

20000 

40000 

100000 


DRIVE FORWARD 5‘VSEC. (BIT #0) 

.•DRIVE FORWARD 20‘VSEC. (BIT #1) 

.•DRIVE TO INNER GUARD BAND (BIT #2) 

;60 REVERSE (BIT #3) 

.DIFFERENCE LESS THAN 64 (BIT #4) 

.•DIFFERENCE EQUALS 1 (BIT #5) 

.VOLUME VALID (BIT #6) 

.•DRIVE READY (BIT #7) 

.DRIVE PRESENT (BIT #8) 

.PROGRAmBLE (BIT #9) 

.-LAST SECTOR TRANSFERRED (BIT #10) 

.WRITE LOCK (BIT #11) 

.•MEDIUM ON-LINE (BIT #12) 

.•POSITIONING OPERATION IN PROGRESS (BIT #13) 
.•COMPOSITE ERROR (BIT #14) 

.•ATTENTION ACTIVE (BIT #15) 


.•ERROR REGISTER #01 (RMER1) (#02) 

ILF * 1 ;J 

ILR = 2 

RMR - 4 

PAR = 10 ; 

FER = 20 

WCF s 40 

ECH =100 

HCE s 200 

HCRC = 400 ; 

AOE = 1000 

lAE = 2000 

WLE = 4000 

DTE = 10000 

OPI = 20000 

UNS = 40000 

DCK = 100000 


ILLEGAL FUNCTION (BIT #0) 

ILLEGAL REGISTER (BIT #1) 

REGISTER MODIFICATION REFUSED (BIT #2) 
PARITY ERROR (BIT #3) 

FORMAT ERROR (BIT #4) 

WRITE CLOCK FAIL (BIT #5) 

ECC HARD ERROR CBIT #6) 

HEADER COMPARE ERROR (BIT #7) 

HEADER CRC ERROR (BIT #8) 

ADDRESS OVERFLOW ERROR (BIT #9) 

INVALID ADDRESS ERROR (BIT #10) 

WRITE LOCK ERROR (BIT #11) 

DRIVE TIMING ERROR (BIT #12), 
OPERATION INCOMPLETE (BIT #13) 

DRIVE UNSAFE (BIT #14) 

DATA CHECK ERROR (BIT 15) 


.•MAINTAINABILITY REGISTER (RMMR1)(#03) 

DMD = 1 .-DIAGINOSTIC MODE (BIT #0) 
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SEO 0016 


.’ATTENTION SUMMARY PSEUDO-REGISTER (RMAS) im) 



ATO 

= 1 

tTrlVi 

ATI 

- 2 


AT2 

= 4 

000010 

AT3 

= 10 

000020 

AT4 

= 20 

000040 

ATS 

= 40 

000100 

AT6 

= 100 

000200 

AT7 

= 200 



000100 

000200 

000400 

001000 

002000 



010000 

020000 

100000 


000200 

002000 

004000 

010000 


.‘DEVICE 0 
.’DEVICE 1 
.’DEVICE 2 
.’DEVICE 3 
.‘DEVICE 4 
.’DEVICE 5 
.’DEVICE 6 
;DEVICE 7 


(BIT «0) 
(BIT M1> 
(BIT 02) 
(BIT 03) 
(BIT «4) 
(BIT 05) 
(BIT 06) 
(BIT 07) 


.’DESIRED SECTOR/TRACK ADDRESS REGISTER ^RMDA) (005) 
.’(EACH BIT IS CALLED BY BIT NUMBER) 


.’DRIVE 

TYPE REGISTER (RMDT) 

(#06) 

DTOO 

= 1 

.'DRIVE TYPE NUMBER BIT 1 

DT01 

= 2 

.DRIVE TYPE NUMBER BIT 2 

DT02 

= 4 

.’DRIVE TYPE NUMBER BIT 3 

DT03 

= 10 

.’DRIVE TYPE NUMBER BIT 4 

DT04 

* 20 

;DRIVE TYPE NUMBER BIT 5 

DT05 

- 40 

.’DRIVE TYPE NUMBER BIT 6 

DT06 

s 100 

.’DRIVE TYPE NUMBER BIT 7 

DT07 

= 200 

.’DRIVE TYPE NUMBER BIT 8 

DT08 

= 400 

.’DRIVE TYPE NUMBER BIT 9 

DRO 

- 4000 

.’DRIVE REQUEST REQUIRED (BIT #11) 

MOH 

s 20000 

.’MOVING HEAD (BIT #13) 

TAP 

s 40000 

;TAPE DRIVE (BIT #14) 

NBA 

r 100000 

:NOT BLOCK ADDRESSED (BIT #15) 


: LOOK-AHEAD REGISTER (RMLA) (#07) 


s IMO 
s 2000 


;SLCTOR COUNT FIELD 0 (BIT #6) 
.’SECTOR COUNT FIELD 1 (BIT #7) 
;SECTOR COUNT FIELD 2 (BIT #8) 
.’SECTOR COUNT FIELD 3 (BIT #9) 
.’SECTOR COUNT FIELD 4 (BIT #10) 


.’RM ERROR REGISTER #2 (RNER2) (#10) 


DPE s 10 

DVC - 200 

L6C = 2000 

LSC - 4000 

IVC = 10000 

OPE - 20000 

SKI = 100000 

.’OFFSET REGISTER (RMOF) (#11) 


OFD 

HCI 

ECI 

FMT16 


= 200 
- 2000 
= 4000 
= 10000 


.’DATA PARITY ERROR (BIT #3) 
.’DEVICE CHECK (BIT #7) 

.’LOSS OF BIT CLOCK (BIT #10) 
.’LOSS OF SYSTEM CLOCK (BIT #11) 
.’INVALID COMMAND (BIT #12) 
.’OPERATOR ERROR (BIT #13) 

.’SEEK INCOMPLETE (BIT #14) 


OFFSET FORWARD (BIT #5) 

HEADER COMPARE INHIBIT (BIT #10) 

ERROR CORRECTION CODE INHIBIT (BIT #11) 
FORMAT BIT (BIT #12 


.’DESIRED CYLINDER ADDRESS (RMDC) (#12) 


SEQ 0017 
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E 2 


666 

667 

668 

669 

670 

671 

672 

673 
67A 

675 

676 

677 

678 

679 

680 
681 
682 

683 

684 

685 

686 

687 

688 

689 

690 

691 

692 

693 

694 

695 

696 

697 

698 


.-(EACH BIT IS CALLED BY BIT NUMBER) 

.-SERIAL NUMBER REGISTER (RMSN) (#14) 

.-(EACH IS CALLED BY BIT NUMBER) 

;ECC POSITION REGISTER (RMEC1) (#16) 

.-(EACH BIT IS CALLED BY BIT NUMBER) 

;ECC PATTERN REGISTER (RMEC2> (#17) 

:(EACH BIT IS CALLED BY BIT NUMBER) 

.SBTTL DEFINITIONS OF THE RH/RM ADDRESS INDEXES 


000000 

RMCS1 

= 0 

000002 

RMUC 

= 2 

000004 

RMBA 

= 4 


RMDA 

= 6 

'Ivi ' 

RMCS2 

= 10 


RMDS 

= 12 


RMER1 

= 14 


RMAS 

= 16 

000020 

RMLA 

= 20 

000022 

RMDB 

= 22 

000024 

RMMRI 

= 24 

000026 

RMDT 

= 26 

000030 

RMSN 

= 30 

000032 

RMOF 

= 32 

000034 

RMDC 

= 34 

000040 

RMMR2 

= 40 

000042 

RMER2 

= 42 

000044 

RMEC1 

= 44 

000046 

RMEC2 

= 46 


CONTROL AND STATUS REGISTER #1 (DRIVE REG. 00) 

WORD COUNT REGISTER (NOT A DRIVE REG) 

UNIBUS ADDRESS REGISTER (NOT A DRIVE REG) 

DESIRED SECTOR/TRACK ADDRESS REGISTER (DRIVE REG. 05) 
CONTROL AND STATUS REGISTER #2 (NOT A DRIVE REG) 

DRIVE STATUS REGISTER (DRIVE REG 01) 

ERROR REGISTER #1 (DRIVE REG. 02) 

ATTENTION SUMMARY PSEUDO REGISTER (DRIVE REG. 04) 
LOOK AHEAD REGISTER (DRIVE REG. 07) 

DATA BUFFER REGISTER (NOT A DRIVE REG.) 
MAINTAINABILITY REGISTER (DRIVE REG. 03) 

DRIVE TYPE REGISTER (DRIVE REG. 06) 

SERIAL NUMBER REGISTER (DRIVE REG. 10) 

OFFSET REGISTER (DRIVE REG. 11) 

DESIRED CYLINDER ADDRESS REGISTER (DRIVE REG. 12) 
MAINTENANCE REGISTER #2 (DRIVE REG. 14) 

ERROR REGISTER #2 (DRIVE REG. 15) 

ECC POSITION REGISTER (DRIVE REG. 16) 

ECC PATTERN REGISTER (DRIVE REG. 17) 


SEO 0018 
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1 .S8TTL TRAP CATCHER 



000000 



000174 


000174 

000000 


000176 

000000 


000200 

000137 

001766 

3 000204 

000137 

001776 


000210 
000046 
000046 013316 
000052 
000052 020000 
000210 

6 


.=0 

*ALL UNUSED LOCATIONS FROM 4 - 776 CONTAIN A •'.♦2,HALT'* 
•SEQUENCE TO CATCH ILLEGAL TRAPS AND INTERRUPTS 
•LOCATION 0 CONTAINS 0 TO CATCH IMPROPERLY LOADED VECTORS 
.=174 


DISPREG: .WORD 0 
SWREG: .WORD 0 

.SBTTL STARTING ADDRESS(ES) 

JMP a#START 

JMP a^rSTARTI 

.S8TTL ACT11 HOOKS 


; .-SOFTWARE DISPLAY REGISTER 
.-.-SOFTWARE SWITCH REGISTER 


.-.-JUMP TO STARTING ADDRESS OF PROGRAM 
.-START AND CHANGE THE RH/RM ADDRESS 


;HOOKS REQUIRED BY ACT11 
$SVPC=. 

.=46 

SENDAD 

.=52 

.WORD 20000 
.=$SVPC 


.-SAVE PC 

.-.-DSET L0C.46 TO ADDRESS OF SENDAD IN .SEOP 

.-;2)SET L0C.52 TO 20000 
;.- RESTORE PC 
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0 .S6TTL COMMON TAGS 


SEO 0019 


001100 
001100 
001 i02 

001103 

001104 

001106 

001110 

001112 

001114 

001115 

001116 

001120 

001122 

001124 

001126 

001130 

001132 

001134 

001135 

001136 

001140 

001142 

001144 

001146 

001150 

001152 

001154 

001155 

001156 

001157 

001160 


001162 

001164 

001166 

001170 

001172 

001174 

001176 

001200 

001202 

001206 

001207 

001210 


001100 

000000 

000 

000 

000000 

000000 

000000 

000000 

000 

001 

000000 

000000 

000000 

000000 

000000 

000000 

000000 

000 

000 

000000 

177570 

177570 

177560 

177562 

177564 

177566 

000 

002 

012 

000 

000000 


000000 


000000 

000000 

000000 

207 

077 

015 

012 


;*TH1S TABLE CONTAINS VARIOUS COMMON STORAGE LOCATIONS 
;*USED IN THE PROGRAM. 


SCMTAG: 

SPASS: 

STSTNM: 

SERELG: 

fICNT: 

SLPADR: 

SLPERR: 

SERTTL: 

SITEMB: 

SERMAX: 

SERRPC: 

SGDADR: 

SBDADR: 

SGDDAT: 

SaOOAT: 


$AU'JB: 

SINTAG: 

SWR: 

DISPLAY: 

STKS: 

$TKB: 

$TPS: 

STP8: 

SNULL: 

SFILLS: 

fFILLC: 

STPFLG: 

SREGAD: 

SRE60: 
STMPO: 
STMP1: 
$TMP2; 
STMP3: 
$T«P4: 
STJMES: 
SESCAPE: 
377 SBELL: 
$QUES: 
SCRLE: 
$LF: 


.sIlOO 

.WORD 
.BYTE 
.BYTE 
.WORD 
.WORD 
.WORD 
.WORD 
.BYTE 
.BYTE 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.BYTE 
.BYTE 
.WORD 
.WORD 
: .WORD 
177560 
177562 
177564 
177566 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

0 

:0 

.ASCJZ 

.ASCII 

.ASCIJ 

.ASCJZ 


0 

0 

0 

0 

0 

0 

0 

0 

1 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

DSWR 

DDJSP 


<207><377><377> 

/?/ 

<15> 

<12> 


; .-START OF COMMON TAGS 
; .-CONTAINS PASS COUNT 
.-.-CONTAINS THE TEST NUMBER 
.-.-CONTAINS ERROR FLAG 
.-.'CONTAINS SUBTEST ITERATION COUNT 
.'.'CONTAINS SCOPE LOOP ADDRESS 
: .-CONTAINS SCOPE RETURN FOR ERRORS 
.-.-CONTAINS TOTAL ERRORS DETECTED 
.-.-CONTAINS ITEM CONTROL BYTE 
.'.'CONTAINS MAX. ERRORS PER TEST 
.-.-CONTAINS PC OF LAST ERROR INSTRUCTION 
.'.'CONTAINS ADDRESS OF 'GOOD* DATA 
:.- CONTAINS ADDRESS OF 'BAD* DATA 
.'.'CONTAINS 'GOOD* DATA 
.-.-CONTAINS 'BAD* DATA 
.'.'RESERVED>-NOT TO BE USED 

.-.-AUTOMATIC MODE INDICATOR 
;; INTERRUPT MODE INDICATOR 

: .-ADDRESS OF SWITCH REGISTER 
.-.-ADDRESS OF DISPUY REGISTER 
;;TTY KBD STATUS 
;;TTY KBD BUFFER 

;.-TTY PRINTER STATUS REG. ADDRESS 
:;TTY PRINTER BUFFER REG. ADDRESS 
:: CONTAINS NULL CHARACTER FOR FILLS 
.-.-CONTAINS # OF FILLER CHARACTERS REQUIRED 
.-.’INSERT FILL CHARS. AFTER A 'IINE FEED" 
.-.-"TERMINAL AVAILABLE" FLAG (BIT<07>=0=YES) 
;; CONTAINS THE ADDRESS FROM 
.'.'WHICH (SREGO) HAS OBTAINED 
.-.’CONTAINS ( (SREGAD) ♦O) 

:.-USER DEFINED 
.-.-USER DEFINED 
.-.-USER DEFINED 
-.-USER DEFINED 
.-.-USER DEFINED 
.-.-MAX. MfCER OF ITERATIONS 
-ESCAPE ON ERROR ADDRESS 
.-.-CODE FOR BELL 
.-.-QUESTION NARK 
;; CARRIAGE RETURN 
.-.-LINE FEED 


# « 


SEO 0020 


CZRNIAO RH80 DUAL PORT PT2 MACRO V04.00 15- JAN-82 07:13:40 PAGE 7 
USER DEFINED TAGS 


172540 

172542 

104 

177546 

100 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 


001212 

172540 

.SBTTL USER C 

SLKCSR: .WORD 

001214 

172542 

SLKCSB: .WORD 

001216 

000104 

SLPVEC: .WORD 

001220 

177546 

$LKS: 

.WORD 

001222 

000100 

SLLVEC: .WORD 

001224 

riWi 

PORTA: 

.WORD 

til K 


PORTB: 

.WORD 

V r n'1 


PORTC: 

.WORD 

111 K 


ASR1 : 

.WORD 

III Fi 


PTNBR: 

.WORD 

001236 


SEIZPT: .WORD 

001240 

000000 

OPPRT: 

.WORD 

001242 


TSTNUM: .WORD 

001244 

000000 

CKERR: 

■mu 

001246 


NOSEIZ: .WORD 

001250 

I' 

RELERR: .WORD 

001252 

000000 

TIME: 


001254 


WATCH: 


001256 


TIMEA: 


001260 


TIMEAP: .WORD 

001262 


TIMEB: 


001264 


TIMEBP: .WORD 

001266 


KYBCTL: .WORD 



CHGADR: .WORD 

001272 

176700 

.SBTTL RH/RM 

SRMADR: .WORD 

001274 

000254 

SRMVEC: .WORD 


176700 

254 


ADDR OF KU11-P STATUS REGISTER 
ADDR OF KU11-P COUNTER BUFFER 
ADDR OF KU11-P VECTOR 
ADDR OF KU11-L STATUS REGISTER 
ADDR OF KU11-L VECTOR 
ADDRESS OF PORT A 
ADDRESS OF PORT b 
ADDRESS OF DIFFERENT DRIVE 
ATA-A OR ATA-e * 1 

CONTAINS THE PORT ADDRESS FOR ERROR TYPEOUTS 

CONTAINS THE ADDRESS OF THE SEIZINS PORT 

CONTAINS THE ADDRESS OF THE 'OPPOSITE* PORT 

NUMBER OF THE CURRENT TEST 

IF -1, A REGISTER MISCOMPARISON OCCURRED 

IF -1. THE PORT IN 'SEIZPT* DID NOT SEIZE THE DRIVE 

IF -1, THE PORT IN 'SEIZPT* DID NOT RELEASE THE DRIVE 

ELAPSED TIME COUNTER 

WATCH 006 TIMER LOCATION 

THE TIMEOUT ONE-SHOT VALUE MEASURED THROUGH PORT A 

PORT A TIMEOUT VALUE ♦ 25* ^ ^ 

THE TIMEOUT ONE-SHOT VALUE MEASURED THROUGH PORT B 

PORT B TIMEOUT VALUE * 25X 

SINGLE TEST INDICATOR 

CHANGE THE RH/RM ADDRESS INDICATOR 


;RH/RM UNIBUS ADDRESS 
.•INTERRUPT VECTOR ADDRESS 
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SEQ 0021 


.SBTTL ERROR POINTER TABLE 


*THIS TABLE CONTAINS THE INFORMATION FOR EACH ERROR THAT CAN OCCUR. 

*THE INFORMATION IS OBTAINED BY USING THE INDEX NUMBER FOUND IN 

*LOCATION SITEMB. THIS NUMBER INDICATES WHICH ITEM IN THE TABLE IS PERTINENT. 

*N0TE1: IF SITEMB IS 0 THE ONLY PERTINENT DATA IS (SERRPC). 

*N0TE2: EACH ITEM IN THE TABLE CONTAINS 4 POINTERS EXPLAINED AS FOLLOWS; 

• EM ; .-POINTS TO THE ERROR MESSAGE 

* DH POINTS TO THE DATA HEADER 

• DT ;; POINTS TO THE DATA 

* DF ;; POINTS TO THE DATA FORMAT 


001276 


4 001276 

5 001300 

6 001302 

7 001304 

8 
9 

10 

11 001306 

12 001310 

13 001312 

14 001314 

15 

16 

17 

18 001316 

19 001320 

20 001322 

21 001324 

22 

23 

24 

25 001326 

26 001330 

27 001332 

28 001334 


31 

32 001336 

33 001340 

34 001342 

35 001344 

36 

37 

38 

39 001346 

40 001350 

41 00^352 

42 001354 


020431 

023174 

024544 

024764 


020477 

023245 

024560 

024771 


020520 

023174 

024544 

024764 


020571 

023245 

024560 

024771 


020613 

023321 

024576 

024777 


020675 

023370 

024612 

025004 


SERRTB: 
.-ERROR 1 


.-ERROR 2 


.-ERROR 3 


.-ERROR 4 


.’ERROR 5 


.’ERROR 6 


.-DRIVE IS NON-EXISTENT (*NED' BIT SET) 


.-WRONG DRIVE TYPE 


.-PORT SELECT SWITCH ON DRIVE NOT IN *A/B* 


.-DRIVE NOT ON LINE 


.-SERIAL NUMBER READ THROUGH EACH PORT NOT THE SAME 


.-TIMEOUT HAS NOT OCCURRED WITHIN 2 SECONDS 
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sea 0022 


43 

44 

45 

46 001356 

47 001360 

48 001362 

49 001364 

50 

51 

52 

53 001366 

54 001370 

55 001372 

56 001374 

57 

58 

59 

60 001376 

61 001400 

62 001402 

63 001404 

64 

65 

66 

67 001406 

68 001410 

69 001412 

70 001414 

71 

72 

73 

74 001416 

75 001420 

76 001422 

77 001424 


81 001426 

82 001430 

83 001432 

84 001434 

85 

86 

87 

88 001436 

89 001440 

90 001442 

91 001444 

92 

93 

94 

95 001446 

96 

97 001450 

98 001452 

99 001454 


020747 

023417 

024622 

025007 


021014 

023174 

024544 

024764 


021102 

023174 

024544 

024764 


021147 

023174 

024544 

024764 


021216 

023464 

024634 

025004 


021303 

023541 

024644 

025013 


021365 

023174 

024544 

024764 


021451 


.■ERROR 


.‘ERROR 


.•ERROR 


: ERROR 


: ERROR 


; ERROR 


; ERROR 


: ERROR 


.•TIMEOUT ONE-SHOT IS LESS THAN 500 MS 


.-READIN PRESET DOES NOT SET VOLUME VALID FOR THE PORT 


:*60* BIT RESET DURING UNLOAD COMMAND 


.•INCORRECT STATUS DURING UNLOAD COMMAND 


.’DRIVE DID NOT RETURN TO NEUTRAL AFTER UNLOAD COMMAND 


.•ATTENTION BIT SET ON ’OPPOSITE PORT’ AFTER UNLOAD 


.-ATTENTION BIT NOT SET ON PORT WHICH ISSUED 'UNLOAD* 


.-DRIVE NOT IN NEUTRAL AFTER UNLOAD WITH 'PORT 
.-SELECT’ SWITCH MOVED FROM ’A/B' 


025004 


SEQ 0023 
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100 

101 

102 

103 001456 

104 001460 

105 001462 

106 001464 

107 

108 

109 

110 001466 

111 001470 

112 001472 

113 001474 

114 

115 

116 

117 001476 

118 001500 

119 001502 

120 001504 

121 
122 

123 

124 001506 

125 001510 

126 001512 

127 001514 

128 

129 

130 

131 001516 

132 001520 

133 001522 

134 001524 

135 

136 

137 

138 001526 

139 001530 

140 001532 

141 001534 

142 

143 

144 

145 001536 

146 001540 

147 001542 

148 001544 

149 
158 

001546 

001550 

001552 

001554 


021571 

023660 

024662 

025021 


021654 

023660 

024662 

025021 


021737 

023174 

024544 

024764 


022010 

023174 

024544 

024764 


022106 

023174 

024544 

024764 


022201 

023677 

024670 

025007 


022261 

024002 

024702 

025023 


000000 

000000 

000000 

000000 


; ERROR 17 


.‘ERROR 20 


; ERROR 21 


.‘ERROR 22 


.‘ERROR 23 


.‘ERROR 24 


; ERROR 25 


.‘ERROR 26 


.‘DRIVE LOCKED ON PORT 'A* BY SWITCH WHILE CYCLED UP 


.‘DRIVE LOCKED ON PORT *B' BY SWITCH WHILE CYCLED UP 


.‘STATUS INCORRECT FOR PORT AFTER CYCLE UP 


.‘REGISTER CONTENTS SEEN WHEN DRIVE SWITCHED ON ’OPPOSITE* PORT 


.‘'NED* SET WHEN RMDS ACCESSED THROUGH PORT NOT SWITCHED 


;DRIVE SWITCHED TO LOCKED OUT PORT WHEN RELEASED/ 


;RH/RM DIDN’T RESPOND TO ADDRESSING 


;UNUSEO ERROR MESSAGES 


SEO 002^ 
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ERROR POINTER TABLE 

.•ERROR 27 


001556 

000000 

0 

001560 

000000 

0 

001562 

000000 

0 

001564 

000000 

0 

159 


.•ERROR 30 

160 

161 001566 

022324 

EM30 

162 001570 

024011 

DH30 

163 001572 

024706 

0T30 

164 001574 

025024 

DF30 

165 

166 

167 

168 001576 


; ERROR 31 

022355 

EM31 

169 001600 

023245 

DH2 

170 001602 

024560 

DT2 

171 001604 

024771 

0F2 

172 

173 


: ERROR 32 

174 

175 001606 

022423 

EM32 

176 001610 

023245 

DH2 

177 001612 

024560 

DT2 

178 001614 

024771 

DF2 

179 

180 


: ERROR 33 

181 

182 001616 

022453 

EM33 

183 001620 

023174 

DH1 

184 001622 

024544 

DTI 

185 001624 

024764 

DFI 

186 

187 

188 

189 001626 


.•ERROR 34 

022537 

EM34 

190 001630 

024133 

DH34 

191 001632 

024726 

DT34 

192 001634 

025033 

OF 34 

193 

194 


.•ERROR 35 

195 

196 001636 

022606 

EM35 

197 001640 

024227 

DH35 

198 001642 

024740 

0T35 

199 001644 

025007 

DF7 

200 

201 

202 

203 001646 


.-ERROR 36 

022673 

En36 

204 001650 

024227 

DH35 

205 001652 

024740 

0T35 

206 001654 

025007 

DF7 

207 

208 


; ERROR 37 


.•UNUSED ERROR MESSAGES 


.•DRIVE NOT SEIZED BY PORT 'N* 


.‘WRONG STATUS SEEN BY THE SEIZING PORT 


.-REGISTER CONTENTS INCORRECT 


.•CONTROL BUS PARITY ERROR WHILE READING REGISTER 


:CAN*T ACCESS DRIVE THROUGH EITHER PORT 


.•DRIVE NOT IN NEUTRAL AFTER RELEASE. REQUEST NOT SET 


.•DRIVE NOT IN NEUTRAL AFTER TIMEOUT. REQUEST NOT SET 
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SEO 0025 


209 

210 001 6S6 

211 001660 
212 001662 

213 001664 

214 

215 

216 

217 001666 

218 001670 

219 001672 

220 001674 

221 
222 

223 

224 001676 

225 001700 

226 001702 

227 001704 


022760 

024324 

024706 

025024 


023041 

024446 

024752 

025007 


023116 

024011 

024706 

025024 


.'ERROR 40 


; ERROR 41 


.'REGISTER CONTENTS INCORRECT AFTER RELEASE/TIMEOUT 


.'DRIVE NOT SEIZED BY PORT AFTER RELEASE WITH REQUEST SET 


.'REGISTER WRONG AFTER RELEASE WITH REQUEST SET 


J 


N 2 


SEQ 0026 
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.‘THIS ROUTINE HANDLES UNEXPECTED TIMEOUTS 


2 

3 001706 

011600 

BADTMO: 

MOV 

4 001710 

005740 


TST 

5 001712 

022626 


CMP 

6 001714 

104401 001722 


TYPE 

001720 

000417 

.‘.‘65$: 

64$: 

BR 

001760 

7 001760 

010046 

.ASCIZ 

NOV 

8 001762 

104402 


TYPOC 

9 001764 

000240 


NOP 


(SP),RO .‘SAVE PC WHERE THE TIME OUT OCCURED 

-(RO) .‘ADJUST PC -2 

(SP) + .(SP)+ .‘RESTORE STACK POINTER 

,65$ .‘.‘TYPE ASCIZ STRING 

^4$ :;6ET OVER THE ASCIZ 

<CRLF>/UNEXPECTED BUS TIMEOUT. PC=/ 


10 

11 

12 

13 

14 001766 

15 001770 

16 001774 

17 001776 

18 

19 002004 

20 002010 
21 002012 


002014 

002020 

002022 

002026 

002030 

002034 

002042 

002050 

002056 

002064 

002072 

002100 

002106 

002112 

002116 

002124 

002132 


002140 

002144 

002152 

002160 

002166 

002174 

002176 

002200 

002204 


RO.-(SP) 


.S8TTL START OF PROGRAM 


000240 

005037 

000403 

012737 

005227 

001375 

000005 


012706 

005026 

022706 

001374 

012706 

012737 

012737 

012737 

012737 

012737 

012737 

013737 

005037 

005037 

112737 

012737 

012737 


013746 

012737 

012737 

012737 

022777 

001012 

00(H03 

012716 

000002 


001270 

177777 001270 
000000 


001100 

001140 

001100 

013550 

000340 

014132 

000340 

017470 

000340 

013154 

001176 

001200 

000001 

002124 

002132 


START: NOP 
CLR 
BR 

START1: MOV 

START2: INC 
BNE 
RESET 


CH6ADR 

START2 

Hr-I.CHGADR 


.‘SETUP FOR TYPING OUT PC 

.‘PUT 'HALT(O)* INSTRUCTION HERE IF YOU WISH 
.‘TO STOP ON UNEXPECTED TIMEOUT. 


.‘CLEAR THE 'CHANGE RH/RM ADDRESS' INDICATOR 
.‘60 TO THE START 

.‘SET THE 'CHANGE RH/RM ADDRESS' INDICATOR 

;TTY LOOP. WAIT FOR INCREMENT 
:0F WORD 

.‘CLEAR THE WORLD 


000004 

002200 

177570 

177570 

177777 


002206 


000020 

000022 

000030 

000032 

000034 

000036 

013146 


001115 

001106 

001110 


000004 

001140 

001142 

176744 


.SBTTL INITIALIZE THE COMMON TAGS 
.‘.‘CLEAR THE COMMON TAGS (SCMTAG) AREA 

MOV #$CMTAG.R6 .‘.‘FIRST LOCATION TO BE CLEARED 

CLR (R6)^ .‘.‘CLEAR MEMORY LOCATION 

CMP #SHR.R6 .‘.‘DONE? 

BNE .-6 .'.‘LOOP BACK IF NO 

MOV #STACK.SP .‘.‘SETUP THE STACK POINTER 

.‘.‘INITIALIZE A FEW VECTORS 

MOV #$SCOPE.a«IOTVEC .‘.‘lOT VECTOR FOR SCOPE ROUTINE 

MOV 034o,momc*2 .‘.‘level 7 

MOV «$ERROR.a»EMTVEC .‘:EMT VECTOR FOR ERROR ROUTINE 

MOV #340.a#EMTVEC^2 .‘.‘LEVEL 7 

MOV #STRAP,a#TRAPVEC .‘;TRAP VECTOR FOR TRAP CALLS 

MOV #340.a#TRAPVECt2.‘LlVEL 7 

MOV $ENOCT,$EOPCT .‘.‘SETUP END-OF -PROGRAM COUNTER ^ 

CLR STIMES ;:INITIALIZE NUMBER OF ITERATIONS 

CLR SESCAPE .‘.‘CLEAR THE ESCAPE ON ERROR ADDRESS 

M0V8 fl.SERMAX .‘.‘ALLOW ONE ERROR PER TEST 

MOV f.'SLPADR ;;INITIALIZE THE LOOP ADDRESS FOR SCOPE 

MOV #..SLPERR .‘.‘SETUP THE ERROR LOOP ADDRESS 

.‘.‘SIZE FOR A HARDWARE SWITCH REGISTER. IF NOT FOUNDS IT IS 
‘.‘EQUAL TO A "-I". SETUP FOR A SOFTWARE SWITCH REGISTER. 

MOV a#ERRVEC.-(SP) .‘.‘SAVE ERROR VECTOR^ 

MOV #64$.a#EftRVEC ;.‘SET UP ERROR VECTOR 

MOV mwfi.SWR ;.‘SETUP FOR A HARDWARE SWICH REGISTER 


RDDIS^TdI SPLAY I' ‘AND A HARDWARE DISPLAY REGISTER 


f-i.aswR 

66$ 

#6f$.(SP) 


.‘.‘TRY TO REFERENCE HARDWARE SWR 
‘BRANCH IF NO TIMEOUT TRAP OCCURRED 
.‘.‘AND THE HARDWARE SWR IS NOT = -1 
.‘.‘BRANCH IF NO TIMEOUT 
;;SET UP FOR TRAP RETURN 


B 3 
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INITIALIZE THE 

COMMON 

lAGS 






002206 

012737 

000176 

001140 

65$: 

MOV 

#SWREG.SWR ; 

; POINT TO SOFTWARE SWR 

002214 

012737 

000174 

001142 


MOV 

fDISPREG, DISPLAY 

002222 

012637 

000004 


66$: 

MOV 

(SP}^.a«ERRVEC ; 

.‘RESTORE ERROR VECTOR 

24 




.•SETUP 

•TIMEOUT' 

* TRAP VECTOR FOR UNEXPECTED BUS TIMEOUTS 

25 002226 

012737 

001706 

000004 


MOV 

#8ADTM0.ERRVEC ; 
#PR6,ERRVEC+2 ; 

SETUP FOR UNEXPECTED TIMEOUT 

26 002234 

27 

28 

012737 

000300 

000006 


MOV 

LEVEL 6 




.SBTTL 

TYPE PROGRAM NAME 






:;TYPE 

THE NAME 

OF THE PROGRAM IF FIRST PASS 

002242 

005227 

177777 



INC 

#-1 

.•FIRST TIME? 

002246 

001032 




BNE 

67$ 

; BRANCH IF NO 

002250 

022737 

013316 

000042 


CMP 

#$ENDAD.a«42 

;ACT-11? 

002256 

001426 




BEQ 

67$ 

.•BRANCH IF YES 

002260 

104401 

002266 



TYPE 

.68$ 

.•TYPE ASCIZ STRING 

002264 

000423 




BR 

67$ 

.-GET OVER THE ASCIZ 





;;68$; 

.ASCIZ 

<CRLF>aCZRNIAO - 

RM80 DUAL PORT TEST. PT 2a<CRLF> 

002334 




6>$: 



002334 

005737 



.SBTTL 

GET VALUE FOR SOFTWARE SWITCH REGISTER 

000042 



TST 

a4r42 

;ARE WE RUNNING UNDER XXDP/ACT? 

002340 

001006 


000176 


BNE 

69$ 

•;BRANCH IF YES 

002342 

023727 

001140 


CMP 

SWR.fSWREG 

■.•SOFTWARE SWITCH RFG SELECTED? 

002350 

001005 




BNE 

70$ 

’.•BRANCH IF NO 

002352 

104406 




GTSWR 


.-GET SOFT-SWR SETTINGS 

002354 

000403 




BR 

70$ 

002356 

112737 

000001 

001134 

69$: 

MOVB 

«1 .$AUTOB 

.-SET AUTO-MODE INDICATOR 

002364 




70$: 




29 002364 

004737 

015774 


1$: 

JSR 

PC.$TKINT 

SETUP THE TTY KEYBOARD 

30 002370 

004737 

002764 



JSR 

PC, CHANGE 

CHECK/CHANGE THE RH/RM ADDRESS 

31 002374 

104401 

017556 



TYPE 

.ENTERA 

ENTER DRIVE ADDRESS 

32 002400 

104412 




ROOCT 


GET THE ADDRESS 

33 002402 

012637 

001224 

000007 


MOV 

(SP) ♦.PORTA 

STORE THE ADDRESS 

34 002406 

023727 

001224 


CMP 

P0RTA.#7 

SEE IF ADDRESS TOO LARGE 

35 002414 

101403 




BIOS 

2$ 

BR IF NOT 

36 002416 

104401 

017605 



TYPE 

.ADRERR 

TYPE ADDRESS ERROR MESSAGE 

37 002422 

000760 




BR 

f$ 

TRY AGAIN 

38 002424 

013737 

001224 

001226 

2$: 

MOV 

PORTA.PORTB 

GENERATE THE PORT B ADDRESS 

39 002432 

005237 

001226 



INC 

PORTB 

INCREMENT THE ADDRESS 

40 002436 

042737 

000016 

001226 


BIC 

#16,P0RTB 

LEAVE BIT 0 

41 002444 

013746 

001224 



MOV 

PORTA,-(SP> 

PUT PORT A ADDRESS ON THE STACK 

42 002450 

042716 

177771 



BIC 

#^C6. (SP) 

SAVE BITS 1 ( 2 

43 002454 

052637 

001226 



BIS 

(SP) ♦.PORTB 

SET BITS 1 & 2 IN PORT B ADDRESS 

44 002460 

104401 

017630 



TYPE 

.PORTAIS 

*PORT A ADDRESS IS * 

45 002464 

002470 

013746 

104403 

001224 



MOV 

PORTA, -(SP) 

.♦SAVE PORTA FOR TYPEOUT 
.•TYPE PORT A ADDRESS 




TYPOS 


;60 TYPE-OCTAL ASCII 

002472 

001 




.BYTE 

1 

.•TYPE 1 DIGIT(S) 

002473 

000 

017657 



.BYTE 

0 

.•SUPPRESS LEADING ZEROS 

/6 002474 

104401 



TYPE 

.PORTBIS 

'PORT B ADDRESS IS ' 

47 002500 

002504 

013746 

104403 

001226 



MOV 

PORTB,-(SP) 

.‘SAVE PORTB FOR TYPEOUT 
.•TYPE PORT B ADDRESS 




TYPOS 


;60 TYPE— OCTAL ASCII 

002506 

001 




.BYTE 

1 

.•TYPE 1 DIGIT(S) 

002507 

000 




.BYTE 

0 

.•SUPPRESS LEADING ZEROS 

48 002510 

104401 

001207 



TYPE 

.$CRLF 

ANOTHER CR-LF 

49 002514 

013737 

001224 

001230 


MOV 

PORTA.PORTC 

GENERATE ADDRESS OF DRIVE NOT TESTED 

50 002522 

062737 

000006 

001230 


ADD 

#6,P0RTC 

COMPLEMENT SOME BITS 



SEQ 0028 


;SAVE ONLY LOWER BITS 
.‘USE PORT A ADDRESS AS INDEX 
.‘GET ATTENTION BIT FOR DRIVE 
.‘CLEAR TIMEOUT ONE-SHOT VALUE LOCATION 
.‘CLEAR TIMEOUT ONE-SHOT VALUE LOCATION 
.‘CLEAR TIMEOUT ONE-SHOT VALUE LOCATION 
.‘CLEAR TIMEOUT ONE-SHOT VALUE LOCATION 
.‘SETUP CLOCK 
.‘CLOCK HAS BEEN STARTED 
.‘NO CLOCK ON SYSTEM 
.‘FATAL ERROR 
.‘INTERLOCK THE HALT 

FROM THE OPERATOR 

CLEAR EVERYTHING 

CLEAR THE PROCESSOR STATUS WORD 

CR-LF 

RH/RM ADDRESS FOR INDEXING 

LOAD STACK POINTER 

START THE CLOCK 

RETURN IF NO CLOCK 

INITIALIZE THE KEYBOARD 

CLEAR SINGLE TEST INDICATOR 

CLEAR THE PASS COUNT 

SET ERROR MAX TO 1 

INITIAL SETTING FOR LOOP ADDRESS 

INITIAL SETTING FOR LOOP ON ERROR ADDRESS 

ASK FOR TEST NUMBER 
GET THE NUMBER 
PUT ENTRY INTO R1 
BR IF NOT ZERO 

ENTER ZERO - PERFORM ALL TESTS 

SEE IF NUMBER GREATER THAN MAXIMUM 

BR IF LESS OR EQUAL 

BAD ENTRY 

TRY AGAIN 

DECREMENT ENTRY 

SHIFT n LEFT 

SET SINGLE TEST INDICATOR 

PRESET ITERATION COUNT 

;PUT NEU PS ON STACK 

.‘PUT NEU PC ON STACK 

;POP NEU PC AND PS 

JUMP TO TEST 

USED BY THE PROGRAM 

CHANGE THE ADDRESS ? 

BR IF NOT 

CLEAR THE INDICATOR 
TYPE OUT UHAT THE PRESENT ADDRESS IS 
PUT THE ADDRESS ON THE STACK 
TYPE THE ACTUAL ADDRESS 
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SEQ 0029 


104 003010 

105 003014 

106 003020 

107 003022 

108 003024 

109 003026 

110 003032 

111 003034 

112 003042 

113 003046 

114 003052 

115 003054 
003054 

116 003056 

117 003062 

118 003064 

119 003072 

120 

133 

134 003074 

135 003100 
003104 
003110 
003112 


104401 

104401 

104412 

005716 

001402 

011637 

005726 

012737 

013700 

005760 

000404 

104025 

062706 

000745 

012737 

000207 


013700 

012746 

012746 

000002 


001207 



TYPE 

.SCRLF 

; CR-LF 

020057 



TYPE 

.NTRH 

;ASK FOR NEW ADDRESS 




RDOCT 






TST 

<SP) 

;0 OR 'CR' ENTERED ? 




BEO 

2$ 

;BR IF EITHER ENTERED (NO ADDRESS 

001272 



MOV 

(SP).$RMADR 

.‘NEW RH/RM ADDRESS 




TST 

(SP) + 

.‘CORRECT THE STACK POINTER 

003054 

000004 

Z%: 

MOV 

«4$.M4 

.‘LOAD TRAP ADDRESS 

001272 



MOV 

SRMADR.RO 

.‘GET RH/RM ADDRESS 

000002 



TST 

RMWCCRO) 

.’RESPONDS AT THAT ADDRESS ? 




BR 

5$ 

.‘BR IF YES 



4$: 







EMT 

25 


000004 



ADD 

#4.SP 

.‘RESET THE STACK POINTER 




BR 

IS 

.‘GET ADDRESS AGAIN 

000006 

000004 

5Sr ■ 

MOV 

«6,»r4 

.‘RESTORE THE VECTOR 




RTS 

PC 

.’RETURN 

001272 


TST1AA: 

NOV 

SRMADR.RO 

.’.’RESTORE RO AFTER END OF PASS 

000240 



MOV 

fPR5.-(SP) 

.‘.‘PUT NEW PS ON STACK 

003112 



mv 

#64$,- (SP) 

.‘.‘PUT NEW PC ON STACK 


POP NEW PC AMD PS 


003112 

003112 

003116 

003120 

003122 

003126 

0031V 

003142 

003150 

003150 

003156 

003162 

138 

139 003170 

140 

141 

142 

150 003176 
003204 


005737 

001406 

100002 

000137 

012737 

012737 

012737 

112737 

012706 

012737 


113760 

013737 


TEST 1 


DRIVE ACCESS TEST 


VERIFY THAT THE DRIVE CAN BE ACCESSED THROUGH BOTH PORTS 

A. SELECT DRIVE, VERIFY THAT THE DRIVE IS PRESENT, THAT THE 
DRIVE IS A DUAL PORT IW80, THAT THE DRIVE IS ONLINE (RNDS HAS 
•MOL'. 'RGN’T^DPR*, t 'DRY* BITS SET), AND THE THE DRIVE SERIAL 
NUMBER READ THROUGH BOTH PORTS IS THE SAfC. 

B. THE TEST IS REPEATED THROUGH BOTH PORTS. 


001266 


002610 

177777 

003150 

003150 

000001 

001100 

000001 


001266 

001106 

001110 

001102 

001176 


TEST1 ; 


012760 000040 000010 


FfOVa 

FfOV 

FIOV 


KYBCTL 

2 $ 

1 $ 

EXEC 

#-1 .KYBCTL 

#TEST1.$LPA0R 

#TEST1.$LPERR 

#1,$TSTNR 
#STACK,SP 
#1, STINES 


.PERFORMING ONLY SINGLE TESTS ? 
;8R IF NOT 

;BR IF JUST ENTERED TEST 
.•RETURN S GET NEXT TEST NUMBER 
.-SET SINGLE TEST INDICATOR 
; SETUP SCOPE LOOP ADDRESS 
; SETUP ERROR LOOP ADDRESS 

.MOVE f1 TEST NUMBER 
.’SETUP THE STACK POINTER 
;;D0 1 ITERATION 


001224 

001224 


000010 

001234 


MOV fCLR,RMCS2(R0) .’CLEAR MASS6US 

.‘VERIFY THAT DRIVE IS PRESENT THROUGH PORTS A S B 
Move P0RTA.RMCS2(R0) ;SELECT PORT A 

MOV PORTA.PTNBR :MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 


j 


SEQ 0030 
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003212 

003216 

003222 

003230 

003236 

003242 

003246 

003254 

003262 

003270 

003272 

003300 

003306 

003314 

003316 

003322 

003324 

003330 

003332 

003340 

003346 

003354 

003360 

003364 

003372 

003400 

003404 

003410 

003416 

003424 

003432 

003434 

003442 

003450 

003456 

003460 

003464 

003466 

003472 

003474 

151 

152 

153 

157 003502 
003510 
003516 
003522 
003530 
003536 
003542 
003550 
003556 
003560 
003562 
003566 
003570 
003576 


005760 

005037 

016037 

012737 

060037 

005037 

013737 

042737 

023737 

001414 

013737 

042737 

053737 

104001 

005137 

C00240 

005737 

001403 

012760 

113760 

013737 

005760 

005037 

016037 

012737 

060037 

005037 

013737 

042737 

023737 

001414 

013737 

042737 

053737 

104001 

005137 

000240 

005737 

001403 

012760 


113760 

013737 

005037 

016037 

012737 

060037 

012737 

023737 

001403 

104002 

005137 

000240 

113760 

013737 


000012 

001244 

000010 001126 
000010 001122 
001122 
001124 

001126 001164 
167777 001164 
001124 001164 

001126 001174 
010000 001174 
001174 001124 

001244 

001244 

000040 000010 
001226 000010 
001226 001234 
000012 
001244 

000010 001126 
000010 001122 
001122 
001124 

001126 001164 
167777 001164 
001124 001164 

001126 001174 
010000 001174 
001174 001124 

001244 

001244 

000040 000010 


001224 

001224 

001244 

000026 

000026 

001122 

024026 

001124 


001244 

001226 

001226 


000010 

001234 

001126 

001122 

001124 

001126 


000010 

001234 


RMDS(RO) ;SEE IP DRIVE (PORT A) PRESENT 

CKERR ; CLEAR THE 'CHECK ERROR' INDICATOR 

RMCS2(R0),$BD1;AT ;GET CONTENTS OF RMCS2 
#RnCS2,$BDADR :F0^ REGISTER ADDRESS OF ERROR MESSAGE 
RO^SeDADR ;ADD RH/RM BASE ADDRESS 

S6DDAT ;UHAT REGISTER SHOULD BE 

SBDDAT,$TMPO .-MOVE REGISTER CONTENTS TO 'STMPO' 

#*CNED.$THPO ;SAVE SPECIFIED BITS 
SGDDAT, STMPO .'COMPARE THE BITS 

64$ ;BR IF OK 

$8DDAT.STMP4 ;COPY 'BAD DATA’ 

«NED,$TMP4 .'CLEAR THE MASKED BITS 

STMP4.S6DDAT ;'0R’ WITH GOOD DATA FW1 TYPEOUT 
1 

CKERR 


.'SET THE REGISTER COMPARE ERROR INDICATOR 


CKERR .'WAS 'NED* SET ? 

.♦10 .'8R IF NOT 

fCLR.RMCS2(R0) .'ISSUE MASSBUS INIT TO CLEAR 'NED' 

P0RT8.RMCS2(R0> ;SELECT PORT B 

PORTB.PTNBR .'MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 
RMDS(RO> .'SEE IF DRIVE (PORT B) PRESENT 

CKERR :CLEAR THE 'CHECK ERROR* INDICATOR 

RMCS2(R0>.tBD0AT :GET CONTENTS OF RMCS2 

«RMCS2.Ib6aDR .'FOm register address of error message 

RO.IBDADR .'ADD RH/RM BASE ADDRESS 

SGDDAT .'WHAT REGISTER SHOULD BE 

SBDDAT. STMPO ;M0VE REGISTER CONTENTS TO 'STMPO* 

#*CN£D.STMPO .'SAVE SPECIFIED BITS 

SGDDAT. STMPO .'COMPARE THE BITS 

66S .‘BR IF OK 

SBDDAT. STMP4 .'COPY 'BAD DATA' 

#NE0.sfMP4 .'CLEAR THE MASKED BITS 

STMP4.SG00AT ;'0R' WITH GOOD DATA FOR TYPEOUT 

1 

CKERR 


CKERR 

.♦10 

fCLR.RMCS2(R0) 


.'SET THE REGISTER COMPARE ERROR INDICATOR 

.'WAS 'NED* SET ? 

'BR IF NOT 

‘ISSUE MASSBUS INIT TO CLEAR 'NED' 


.'CONFIRM THAT DRIVE IS AN RM60 AND IS DUAL PORT 


MOVB 

NOV 

CLR 

MOV 

MOV 

ADD 

NOV 

CMP 

BEO 

EMT 

COM 

NOP 

MOVB 

MOV 


P0RTA,RMCS2(R0) ;SELECT PORT A 

PORTA.PTNBR .'MOVi PORT ADDRESS TO LOCATION FOR TYPEOUT 
CKERR .'CLEAR THE 'CHECK ERROR' INDICATOR 

RNDTIRO). SBDDAT ;6ET CONTENTS OF RMDT 
RRMDT.SWADR .'FOM REGISTER ADDRESS OF ERROR MESSAGE 
R0.S8DADR .‘ADD RH/RM BASE ADDRESS 

#02^26.SGDDAT .WHAT REGISTER SJKXILD BE 

SGDDAT.ifiDDAT .IS THE REGISTER OK ? 

68S ;BR IF OK 

CKERR .'SET THE REGISTER COMPARE ERROR INDICATOR 

P0RTB.RMCS2(R0) ;SELECT PORT B 

PORTB.PTNBR ;MOV§ PORT ADDRESS TO LOCATION FOR TYPEOUT 


SEO 0031 
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003604 

003610 

003616 

0C3624 

003630 

003636 

003644 

003646 

003650 

003654 

158 

159 

160 

165 003656 
003664 
003672 
003676 
003704 
003712 
003715 
003724 
003732 
003740 
003746 
003750 
003756 
003764 
003772 
003774 
004000 
004002 
004006 
004014 
004022 
004026 
004034 
004042 
004050 
004056 


004074 

004102 

004104 

004110 

004112 

004120 

004126 

004132 

004140 

004146 

004152 

004160 

004166 

004174 

004202 

004204 


005037 

016037 

012737 

060037 

012737 

023737 

001403 

104002 

005137 

000240 


113760 

013737 

005037 

016037 

012737 

060037 

012737 

013737 

042737 

023737 

001414 

013737 

042737 

053737 

104003 

005137 

000240 

005037 

016037 

012737 

060037 

012737 

013737 

042737 

023737 

001414 

013737 

042737 

053737 

104004 

005137 

000240 

113760 

013737 

005037 

016037 

012737 

060037 

012737 

013737 

042737 

023737 

001414 

013737 


001244 

000026 

000026 

001122 

024026 

001124 


001244 


001224 

001224 

001244 

000012 

000012 

001122 

001000 

001126 

176777 

001124 

001126 

001000 

001174 

001244 

001244 

000012 

000012 

001122 

010600 

001126 

167177 

001124 

001126 

010600 

001174 

001244 

001226 

001226 

001244 

000012 

000012 

oo:i22 

001000 

001126 

176777 

001124 


001126 

001122 

001124 

001126 


000010 

001234 

001126 

001122 

001124 

001164 

001164 

001164 

001174 

001174 

001124 


001126 

001122 

001124 

001164 

001164 

001164 

001174 

001174 

001124 


000010 

001234 

001126 

001122 

001124 

001164 

001164 

001164 


CLR CKERR ; CLEAR THE ' CHECK ERROR* INDICATOR 

MOV RMDT(R0).SBDDAT ;GET CONTENTS OF RMDT 

MOV ARMDT,SB6aDR ;F0^ REGISTER ADDRESS OF ERROR MESSAGE 

ADD RO.SBDADR .‘ADD RH/RM BASE ADDRESS 

MOV «0^4026.$GDDAT ;WHAT REGISTER SHOULD BE 

CMP $6DDAT,iBDDAT ;IS THE REGISTER OK ? 

BEQ 70$ :BR IF OK 

EMT 2 

COM CKERR :SET THE REGISTER COMPARE ERROR INDICATOR 

70S: NOP 

;VERIFY THROUGH BOTH PORTS THAT THE DRIVE IS ON LINE AND IN NEUTRAL 
M0V8 PORTA,RHCS2(R0> ;SELECT PORT A 

MOV PORTA. PTNBR .‘MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 

CLR CKERR .‘CLEAR THE 'CHECK ERROR* INDICATOR 

NOV RMDS(RO>.SBOOAT ;6ET CONTENTS OF RMDS 

MOV #RMDS.SBDADR .‘FOW REGISTER ADDRESS OF ERROR MESSAGE 

ADD RO.SBDADR .‘ADD RN/RM BASE ADDRESS 

MOV fPGN.SGDDAT .‘UHAT REGISTER SHOULD BE 

MOV SBDDAT.STMPO .‘MOVE REGISTER CONTENTS TO 'STMPO* 

BIC #*CPGM. STMPO .‘SAVE SPECIFIED BITS 

CMP S6DDAT. STMPO .‘COMPARE THE BITS 

acQ <AA tf Ok 

MOV S8DDAT.STMP4 -COPY 'BAD DATA’ 

BIC #PGM.STMP4 .'CLEAR THE MASKED BITS 

BIS STMP4.SGDDAT WITH GOOD DATA FOR TYPEOUT 

3 

CKERR 


001126 001174 


MOVB 

NOV 

CLR 

NOV 

MOV 

ADD 

MOV 

MOV 

BIC 

CMP 

BEQ 

NOV 

BIC 

BIS 

EMT 

COM 

NOP 

CLR 

MOV 

MOV 

ADD 

NOV 

MOV 

BIC 

CMP 

BEQ 

MOV 

BIC 

BIS 

EMT 

COM 

NOP 

MOVB 

MOV 

CLR 

NOV 

NOV 

ADD 

MOV 

MOV 

BIC 

CMP 

BEQ 

MOV 


.‘SET THE REGISTER COMPARE ERROR INDICATOR 


CKERR .‘CLEAR THE 'CHECK ERROR* INDICATOR 

RM0S(RO).S80DAT ;6ET CONTENTS OF RMDS _ 

fRMDS.Sfi5ADR ;FOAm REGISTER ADDRESS OF ERROR MESSAGE 
RO.SBDADR :ADD RH/RN BASE ADDRESS 

fWL.'DPRIDRV.SGDfcAT ;«HAT REGISTER SHOULD BE 

SBDDAT.STMPO .‘MOVE REGISTER CONTENTS TO 'STMPO* 

#*C10^.STMP0 .‘SAVE SPECIFIED BITS 

SGDOAT.SfMPO .COMPARE THE BITS 

74$ ;8R IF. OK 

SBD0AT.STMP4 .‘COPY ’BAD DATA* 

#10600. STMP4 .‘CLEAR THE MASKED BITS _ 

STMP4,i6D0AT ;*0R* WITH GOOD DATA FOR TYPEOUT 


#10600.STMP4 

STMPA.SGDDAT 

4 

CKERR 


.‘SET THE REGISTER COMPARE ERROR INDICATOR 


PORT8.RMCS2(R0) rSELECT PORT B _ , 

P0RT8.PTNBR ;MOVt PORT ADDRESS TO LOCATION FOR TYPEOUT 

CKERR .‘CLEAR THE 'CHECK ERROR* INDICATOR 

RMD$(RO).SBDDAT :GET CONTENTS OF RMDS 

#RMDS.S86aDR ;F0^ REGISTER ADDRESS OF ERROR MESSAGE 

R0.SB6aDR .‘ADD RH/RN BASE ADDRESS 

#p6m,SG0DAT ;WHAT register SHOULD BE 

SBDDAT.STMPO ;MOVE REGISTER CONTENTS TO *STNPO* 

fCPGfllSTMPO .‘SAvE specified BITS 

SGDDAT. STMPO .‘COMPARE THE BITS 

76S ;BR IF OK 

SBDDAT.STMP4 .‘COPY *8AD DATA* 


3 
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irP6M,$TMP4 
STMPA^tGDDAT 
3 

CKERR 


SEQ 0052 


166 

167 

168 


180 

214 

215 


004212 

042737 

001000 

001174 

BIC 

004220 

053737 

001174 

001124 

BIS 

004226 

104003 



EMT 

004230 

005137 

001244 


COM 

004234 

000240 



76$: NOP 

004236 

005037 

001244 


CLR 

004242 

016037 

000012 

001126 

MOV 

004250 

012737 

000012 

001122 

MOV 

004256 

060037 

001122 


ADD 

004262 

012737 

010600 

001124 

MOV 

004270 

013737 

001126 

001164 

MOV 

004276 

042737 

167177 

001164 

BIC 

004304 

023737 

001124 

001164 

CMP 

004312 

001414 



BEQ 

004314 

013737 

001126 

001174 

MOV 

004322 

042737 

010600 

001174 

BIC 

004330 

053737 

001174 

001124 

BIS 

004336 

104004 



EMT 

004340 

005137 

001244 


COM 

004344 

000240 



78$; NOP 





.•VERIFY THAT 1 

004346 

113760 

001224 

000010 

MOVB 

004354 

016037 

000030 

001124 

MOV 

004362 

113760 

001226 

000010 

MOVB 

004370 

016037 

000030 

001126 

MOV 

004376 

023737 

001124 

001126 

CMP 

004404 

001406 



BEQ 

004406 

104005 



EMT 

004410 

032777 

100000 

174522 

BIT 

004416 

001001 



BNE 

004420 

000000 



HALT 

004422 

000004 



1$: SCOPE 


; CLEAR THE MASKED BITS 

:'0R' WITH GOOD DATA FOR TYPEOUT 

;SET THE REGISTER COMPARE ERROR INDICATOR 


CKERR .’CLEAR THE 'CHECK ERROR* INDICATOR 

RMDS(RO).$BDDAT ;6ET CONTENTS OF RMOS 
#RMDS.$b6aDR :F06m register ADDRESS OF ERROR MESSAGE 
RO.SbUdR :ADD RH/RM BASE ADDRESS 

fM0L.'DPR!DRY.$GD6AT ;UHAT REGISTER SHOULD BE 
$8DDAT.$TMP0 .’MOVE REGISTER CONTENTS TO 'STHPO* 

fCIOGOO^fTMPO .’SAVE SPECIFIED BITS 

‘ .’COMPARE THE BITS 

• M If QK 

•COPY ‘BAD DATA’ 

.‘CLEAR THE MASKED BITS 
;*0R' WITH GOOD DATA FOR TYPEOUT 


SGDUAT.STMPO 

78$ 

SBDDAT.STMPA 

/ri0600.$TMP4 

$TMP4.$GDDAT 

4 

CKERR 


.’SET THE REGISTER COMPARE ERROR INDICATOR 


.VERIFY THAT DRIVE SERIAL NUMBER SEEN THROUGH BOTH PORTS IS THE SAME 


PORTA.RMCS2(R0) 
RMSNCROI.SGDDAT 
PORTB.RMCS^RO) 
RMSN(RO) .SBDDAT 
SGDDAT.SBDDAT 
1 $ 

5 

fswis.aswR 

IS 


.’SELECT PORT A 

.’STORE THE PORT A SERIAL NUMBER 
.’SELECT PORT B 

.’STORE THE PORT B SERIAL NUMBER 
.’ARE THEY THE SANE ? 

;BR IF THEY ARE 

.’HALT ON ERROR ? 

;8R IF SET - PROGRAM HAS ALREADY HALTED 
.’HALT. POSSIBLE CABLE CONNECTION PROBLEM 
.’LOOP ? 


TEST 2 


SET *VV' FOR PORT A 


SET VOLUME VALID 

A. ISSUE A DRIVE CLEAR COMMAND THROUGH PORT A. 


B. 


C. 


ISSUE A READIN PRESET COMMAND THROUGH PORT A. 
THAT THE *VV' BIT IS SET FOR PORT A. 


VERIFY 


ISSUE A RELEASE COMMAND THROUGH PORT A. VERIFY THAT 
THE DRIVE RETURNED TO NEUTRAL AND THAT NEITHER ATTENTION 
BIT IS SET. 


004424 

004424 

005737 

001266 

TST2: 

TST 

KYBCTL 

004430 

001406 


BEQ 

2$ 

004432 

100002 


BPL 

1$ 

004434 

000137 

002610 

JMP 

EXEC 


PERFORMING ONLY SINGLE TESTS ? 
OR IF NOT 

BR IF JUST ENTERED TEST 
RETURN t GET NEXT TEST NUMBER 


SEQ 0033 
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004440 

004446 

004454 

004462 

004462 

004470 

004474 

004502 

004510 


004516 

004524 

004532 


004540 

004544 

004552 

004560 

004564 

004572 

004600 

004606 

004614 

004616 

004624 

004632 

004640 

004642 

004646 


004650 

004656 

004664 


004672 

004676 

004704 

004710 

004716 

004724 

004732 

004740 

004746 

C04754 

004762 

0C4770 

004776 

005004 


012737 

012737 

012737 

112737 

012706 

012737 

113760 

013737 


012760 

012760 

012760 


005037 

016037 

012737 

060037 

012737 

013737 

042737 

023737 

001414 

013737 

042737 

053737 

104010 

005137 

000240 


113760 

013737 

012760 


005037 

012737 

060037 

012737 

113760 

016037 

013737 

042737 

113760 

016037 

013737 

042737 

023737 

001006 


177777 

004462 

004462 

000002 

001100 

000001 

001224 

001224 


000011 

000021 

010000 


001244 

000012 

000012 

001122 

011700 

001126 

106077 

001124 

001126 

071700 

001174 

001244 


001224 

001224 

000013 


001250 

000012 

001122 

011600 

001224 

000012 

001170 

100100 

001226 

000012 

001172 

100100 

001164 


001266 

001106 

001110 

001102 

001176 

000010 

001234 


000000 

000000 

000032 


001126 

001122 

001124 

001164 

001164 

001164 

001174 

001174 

001124 


TEST2: 


#-1,)CYBCTL 

«TEST2,SLPADR 

#TEST2.$LPERR 

«2,STSTNM 

«STACK,SP 

«n$TlNES 


;SET SINGLE TEST INDICATOR 
.•SETUP SCOPE LOOP ADDRESS 
.'SETUP ERROR LOOP ADDRESS 

.'MOVE «2 TEST NUMBER 
.'SETUP THE STACK POINTER 
.'.‘DO 1 ITERATION 


PORTA. RMCS2(R0) ;SELECT PORT A 

PORTA. PTNBR .MOVE PORT ADDkESS TO LOCATION FOR TYPEOUT 


.'SET VOLUME VALUE FOR PORT 

MOV AlI.RMCSKRO) 

MOV 02 ^ .RMCS1 (RO) 

MOV #FMT16.RMOF(RO) 


.'ISSUE A DRIVE CLEAR 
.‘ISSUE A READIN PRESET 
.'SET FMT16 


.'VERIFY THAT THE DRIVE STATUS IS CORRECT 


CKERR .'CLEAR THE 'CHECK ERROR* INDICATOR 

RMDS(RO).SaODAT -GET CONTENTS Of RMDS 
fRMOS.WDADR .'FORM REGISTER ADDRESS OF ERROR MESSAGE 
R0.$8DADR .'ADD RH/RM BASE ADDRESS 

4!mL!PGM!0PR!DRVlvV.$6DDAT ;UHAT REGISTER SHOULD BE 
SBDDAT.STMPO .'MOVE REGISTER CONTENTS TO 'STMPO* 

f*C71760,$TMP0 .'SAVE SPECIFIED BITS 

SGDDAT.fTMPO .'COMPARE THE BITS 

64S ;6R IF OK 

$8DDAT.STMP4 .COPY ’BAD DATA* 

#71700.fTMP4 .'CLEAR THE MASKED BITS 

STMP4.iGD0AT ;*0R' WITH GOOD DATA FOR TYPEOUT 

10 

CKERR 


.'SET THE REGISTER COMPARE ERROR INDICATOR 


.'RELEASE THE DRIVE FROM PORT A 


000010 

001234 

000000 


001122 

001124 

000010 

001170 

001164 

001164 

000010 

001172 

001166 

001166 

001166 


PORTA.RMCS2(R0) ;SELECT PORT A 

PORTA.PTNBR .'MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 
f 13«RMCS1 (RO) .'ISSUE RELEASE THROUGH PORT A 


.'VERIFY THAT THE DRIVE IS IN NEUTRAL 


CLR 

MOV 

ADD 

MOV 

MOVB 

MOV 

MOV 

BIC 

MOVB 

MOV 

MOV 

BIC 

CMP 

BNE 


RELERR^ 
fRMDS.SBDADR 
^SBDADR 
«mL‘PGM:OPR*DRY 
PORTA.RMCS2(RO) 
RMDS(R0>.$TMP2 
$TMP2. STMPO 
fATAlVV.STMPO 
P0RTB,RMCS2(RQ) 
RMDS(R0).STNP3 
$TMP3,STMP1 
fATA'VV.STMPI 
STMP6.SfMP1 
66 $ 


.'CLEAR THE 'RELEASE ERROR * INDICATOR 
.'FORM THE ADDRESS OF RMDS FOR TYPEOUT 
.'ADD THE I/O BASE ADDRESS 
.SGDDAT ; COMPARISON CONSTANT 
.'SELECT PORT A. 

.'GET THE DRIVE STATUS REGISTER FROM PORT A. 

;COPY IT INTO 'STMPO* 

.’CLEAR PORT DEPENDENT BITS FROM THE COPY 
.'SELECT PORT 6. 

.’GET THE DRIVE STATUS REGISTER FROM PORT B. 

.’COPY IT INTO 'STMPI* 

.‘CLEAR PORT DEPENDENT BITS FROM THE COPY 

;IS THE STATUS REGISTER THE SAME FROM BOTH PORTS ? 

;BR IF NOT 
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SEO 0034 


005006 

005737 

001164 



TST 

$TMPO 

005012 

001037 




BNE 

68$ 

005014 

104034 




EMT 

34 

005016 

000137 

005202 



JMP 

70S 

005022 

013737 

001170 

001126 

66S: 

MOV 

$TMP2.$BDDAT 

005030 

013737 

001226 

001234 


MOV 

PORTB.PTNBR 

005036 

113760 

001226 

000010 


MOVB 

P0RTB.RMCS2(R0) 

005044 

0C5737 

001164 



TST 

$TMPO 

005050 

001414 




BEO 

67$ 

005052 

013737 

001 ?24 

001234 


MOV 

PORTA. PTN6R 

005060 

013737 

001172 

001126 


MOV 

$TMP3.$BDDAT 

005066 

113760 

001224 

000010 


MOVB 

PORTA. RMCS2(R0) 

005074 

005737 

001166 



TST 

$TMP1 

005100 

001004 




BNE 

68$ 

005102 

012737 

177777 

001250 

67S: 

NOV 

«-1 .RELERR 

005110 

104036 




EMT 

36 

005112 

013737 

001170 

001126 

68S: 

MOV 

$TMP2.$6D0AT 

005120 

013737 

001224 

001234 


MOV 

PORTA.PTNBR 

005126 

042737 

100100 

001170 


BIC 

<rATAlVV.$TMP2 

005134 

023737 

001124 

001170 


CMP 

$GDDAT.$TMP2 

005142 

001401 




BEQ 

69$ 

005144 

104037 




EMT 

37 

005146 

013737 

001172 

001126 

69$: 

MOV 

$TMP3.$BDDAT 

005154 

013737 

001226 

001234 


MOV 

PORTB.PTNBR 

005162 

042737 

100100 

001172 


BIC 

fATA!VV.$TMP3 

005170 

023737 

001124 

001172 


CMP 

$G0DAT.$TMP3 

005176 

001401 




BEQ 

70$ 

005200 

104037 




EMT 

37 

005202 

000240 



70$: 

NOP 


005204 

000004 




SCOPE 



REGISTERS ARE THE SAME: ARE THEY ZERO ? 

8R IF NOT 

BYPASS THE REST OF THE CHECKS 
SET UP POSSIBLE BAD DATA FOR ERROR MESSAGE 
SEI7IN6 PORT IF TEST SHOHS DRIVE NOT IN NEUTRAL 
SELECT PORT B. 

SEE IF STATUS EQ 0 FROM PORT A. 

BR IF ZERO 

SEIZING PORT IF TEST SHOWS DRIVE NOT IN NEUTRAL 
'BAD DATA* FOR ERROR TYPE OUT 
SELECT PORT A. 

SEE IF STATUS EQ ZERO FROM PORT B. 

BR IF NOT 

SET 'RELEASE ERROR' INDICATOR 

LOOK FOR BIT FAILURES WHEN RMDS READ 
CHANGE PORT NUMBER 
DON'T CHECK ATTN BIT OR VV BIT 
ALL BITS OK ? 

BR IF OK FROM PORT A. 

CHECK RMDS FOR BIT FAILURES • FROM PORT B. 

CHANGE PORT NUMBER 

DON'T CHECK ATTN BIT OR VV BIT 

SEE IF READ OK FROM PORT B. 

BR IF OK 


.•LOOP ? 



TEST 3 


SET 'W FOR PORT B 


005206 

0C5206 

005737 

001266 


tST3; 

^ST 

KY8CTL 

005212 

001406 




BEQ 

2$ 

005214 

100002 




BPL 

1$ 

005216 

000137 

002610 



JMP 

EXEC 

005222 

012737 

177777 

001266 

1$: 

MOV 

#-1,KYBCTL 

005230 

012737 

005244 

001106 

2$: 

MOV 

f TESTS. $LPADR 

005236 

005244 

012737 

005244 

001110 

TEST3: 

MOV 

f TESTS. $LPERR 

005244 

112737 

000003 

001102 


MOVB 

«3.$TSTNM 

005252 

012706 

001100 



MOV 

fSTACK.SP 


SET VOLUME VALID 

A. ISSUE A DRIVE CLEAR COMMAND THROUGH PORT B. 

B. ISSUE A READIN PRESET COMMAND THROUGH PORT B. VERIFY 
THAT THE 'W* BIT 1$ SET FOR PORT B. 

C. ISSUE A RELEASE COMMAND THROUGH PORT B. VERIFY THAT 

THE DRIVE RETURNED TO NEUTRAL AND THAT NEITHER ATTENTION 
BIT IS SET. 


PERFORMING ONLY SINGLE TESTS ? 
BR IF IWT 

BR IF JUST ENTERED TEST 
RETURN t GET NEXT TEST NUMBER 
SET SINGLE TEST INDICATOR 
SETUP SCOPE LOOP ADDRESS 
SETUP ERROR LOOP ADDRESS 

MOVE #3 TEST NUMBER 
SETUP THE STACK POINTER 


SEQ 0035 
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005256 012737 000001 001176 

005264 113760 001226 000010 
005272 013737 001226 001234 


#1.$TIMES 


;;D0 1 ITERATION 


005300 

005306 

005314 


005322 

005326 

005334 

005342 

005346 

005354 

005362 

005370 

005376 

005400 

005406 

005414 

005422 

005424 

005430 


005432 

005440 

005446 


005454 

005460 

005466 

005472 

005500 

005506 

005514 

005522 

005530 

005536 

005544 

005552 

005560 

005566 

005570 

005574 

005576 

005600 

005604 

005612 


012760 

012760 

012760 


005037 

016037 

012737 

060037 

012737 

013737 

042737 

023737 

001414 

013737 

042737 

053737 

104010 

005137 

000240 


113760 

013737 

012760 


005037 

012737 

060037 

012737 

113760 

016037 

013737 

042737 

113760 

016037 

013737 

C42737 

023737 

001006 

005737 

001037 

104034 

000137 

013737 

013737 


000011 

000021 

010000 


001244 

000012 

000012 

001122 

011700 

001126 

106077 

001124 

001126 

071700 

001174 

001244 


001226 

001226 

000013 


001250 

000012 

001122 

011600 

001224 

000012 

001170 

190100 

001226 

000012 

001172 

100100 

001164 

001164 


00>764 

001170 

001226 


000000 

000000 

000032 


001126 

001122 

001124 

001164 

001164 

001164 

001174 

001174 

001124 


000010 

001234 

000000 


001122 

001124 

000010 

001170 

001164 

001164 

000010 

001172 

001166 

001166 

001166 


001126 

001234 


PORTS, RniS2(R0) :SELECT PORT B 

PORTS, PTNSR :M0VE PORT ADDRESS TO LOCATION FOR TYPEOUT 


;SET VOLUME VALUE FOR PORT 


«11,RMCS1(R0) ; ISSUE A DRIVE CLEAR 

«21 ,RMCS1 (RO) ; ISSUE A READIN PRESET 
#FMT16,RM0F(R0) ;SET FMT16 


; VERIFY THAT THE DRIVE STATUS IS CORRECT 


CKERR ; CLEAR THE ’CHECK ERROR* INDICATOR 

RMDS(R0),S6DDAT ;GET CONTENTS OF RMDS 
4IRMDS,SBDADR ;FORM REGISTER ADDRtSS OF ERROR MESSAGE 
R0,S8DADR :ADD RH/RM BASE ADDRESS 

«MOL!PGM!DPR!DRY!VV,$GDDAT ;HHAT REGISTER SHOULD BE 
S8DDAT.STHP0 ;MOVE REGISTER CONTENTS TO *STMPO' 

rC71760,fTMP0 ;SAVE SPECIFIED BITS 

$GDDAT,$TMPO .‘COMPARE THE BITS 

64$ :BR IF OK 

SBDDAT.$TMP4 ;COPV 'BAD DATA* 

#71700,$TMP4 ; CLEAR THE MASKED BITS 

STMP4.iGD0AT ;'0R' WITH GOOD DATA FOR TYPEOUT 
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.‘SET THE REGISTER COMPARE ERROR INDICATOR 


.‘RELEASE THE DRIVE FROM PORT B 


PORT6.RHCS2(R0) rSELECT PORT B 

PORTB.PTNBR .‘MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 
f 13.RHCS1 (RO) .‘ISSUE RELEASE THROUGH PORT B 


.‘VERIFY THAT THE DRIVE IS IN NEUTRAL 


CLR RELERR 

MOV fRMDS,$BDADR 

ADD R0.S8DADR 

MOV jmiPGMIDPRiDRY 

MOVB P0RTA.RMCS2(R0> 
MOV RMDS(R0}.$TMP2 

MOV $TMP2.$TMP0 

BIC fATA'W.STMPO 

M0V3 P0RTB,RMCS2(RQ) 

MOV RMDS(A0).$TMP3 

MOV STMP3,$TMP1 

BIC fATA'W.STMPI 

CMP STMPd.STMPI 

BNE 66$ 

TST $TMPO 

BNE 68$ 

EMT 34 

JMP 70$ 

MOV $TMP2,$BD0AT 

MOV PORTB.PTNBR 


CLEAR THE 'RELEASE ERROR ' INDICATOR 
FORM THE ADDRESS OF RMDS FOR TYPEOUT 
ADD THE 1/0 BASE ADDRESS 
$GDDAT ;C0MPAR1SQN CONSTANT 
SELECT p6rT a. 

GET THE DRIVE STATUS REGISTER FROM PORT A. 

COPY IT INTO 'STMPO* 

CLEAR PORT DEPENDENT BITS FROM THE COPY 
SELECT PORT B. 

GET THE DRIVE STATUS REGISTER FROM PORT B. 

COPY IT INTO *$TMP1* 

CLEAR PORT DEPENDENT BITS FROM THE COPY 

IS THE STATUS REGISTER THE SAME FROM BOTH PORTS ? 

BR IF NOT 

REGISTERS ARE THE SAME: ARE THEY ZERO ? 

BR IF NOT 

BYPASS THE REST OF iHE CHECKS 

SET UP POSSIBLE P4D DATA FOR ERROR MESSAGE 

SEIZING PORT IF fEST SHOWS DRIVE NOT IN NEUTRAL 


SEO 0036 
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005620 

113760 

001226 

000010 


MOVB 

P0RTB.RMCS2(R0) 

005626 

005737 

001164 



TST 

STMPO 

005632 

001414 




BEQ 

67$ 

005634 

013737 

001224 

001234 


MOV 

PORTA. PTNBR 

005642 

013737 

001172 

001126 


MOV 

STMP3.$eDDAT 

005650 

113760 

001224 

000010 


MOVB 

PORTA. RMCS2(R0) 

005656 

005737 

001166 



TST 

$TMP1 

005662 

001004 




BNE 

68$ 

005664 

012737 

177777 

001250 

67S: 

MOV 

#-1.RELERR 

005672 

104036 




EMT 

36 

005674 

013737 

001170 

001126 

68S: 

MOV 

$TMP2.$BDDAT 

005702 

013737 

001224 

001234 


MOV 

PORTA. PTNBR 

005710 

042737 

100100 

001170 


BIC 

#ATA!VV.$TMP2 

$GDDAT.$TMP2 

005716 

023737 

001124 

001170 


CMP 

005724 

001401 




BEQ 

69$ 

005726 

104037 




EMT 

37 

005730 

013737 

001172 

001126 

69S: 

MOV 

$TMP3.$BDDAT 

005736 

013737 

001226 

001234 


MOV 

PORTB. PTNBR 

005744 

042737 

lOulOO 

001172 


BIC 

#ATA!VV.$TMP3 

$GDDAT.$TMP3 

005752 

023737 

001124 

001172 


CMP 

005760 

001401 




BEQ 

70$ 

005762 

104037 




EMT 

37 

005764 

000240 



70S: 

NOP 


005766 

000004 




SCOPE 



SELECT PORT 8. 

SEE IF STATUS EQ 0 FROM PORT A. 

BR IF ZERO 

SEIZING PORT IF TEST SHOWS DRIVE NOT IN NEUTRAL 
•ttAD DATA* FOR ERROR TYPE OUT 
SELECT PORT A. 

SEE IF STATUS EO ZERO FROM PORT B. 

BR IF NOT 

SET 'RELEASE ERROR' INDICATOR 

LOOK FOl BIT FAILURES t#1EN RMDS READ 
CHANGE PORT NUMBER 
DON'T CHECK ATTN BIT OR VV BIT 
ALL BITS OK ? 

BR IF OK FROM PORT A. 

CHECK RMDS FOR BIT FAILURES - FROM PORT B. 

CHANGE PORT NUMBER 

DON'T CHECK ATTN BIT OR VV BIT 

SEE IF READ OK FROM PORT B. 

BR IF OK 


;LOOP ? 


TEST 4 


MEASURE THE TIMEOUT ONE-SHOT THROUGH PORT A 


MEASURE THE TIMEOUT ONE-SHOT VALUE THROUGH PORT A 

A. WRITE O'S INTO RMDS THROUGH PORT A AND VERIFY THAT THE 
DRIVE HAS BEEN SEIZED. 

8. WAIT FOR TIMEOUT TO OCCUR. MEASURE THE DURATION OF THE TIMEOUT 
ONE-SHOT AND SAVE THE VALUE FOR LATER USE. 

C. VERIFY THAT THE TIMEOUT OCCURRED AND THAT THE DRIVE RETURNS 
TO NEUTRAL 


005770 

005770 

005737 

001266 


tST4; 

TST 

*«ft*ft**ft***t*t*** 

KYBCTL 

.'PERFORMING ONLY SINGLE TESTS ? 

005774 

001406 




BEQ 

2$ 

;BR IF NOT 

005776 

100002 




BPL 

1$ 

.‘BR IF JUST ENTERED TEST 

006000 

000137 

002610 



JMP 

EXEC 

.'RETURN 1 GET NEXT TEST NUMBER 

0060C4 

012737 

177777 

001266 

1$: 

NOV 

#-1 .KYBCTL 

.'SET SINGLE TEST INDICATOR 

006012 

012737 

006026 

001106 

2$: 

MOV 

#TEST4.$LPADR 

.'SETUP SCOPE LOOP ADDRESS 

C06020 

006026 

012737 

112737 

006026 

001110 

TEST4: 

NOV 

#TEST4.$LPERR 

: SETUP ERROR LOOP ADDRESS 

006026 

000004 

001102 


MOVB 

#4.$TSTNM 

.'MOVE #4 TEST NUMBER 

006034 

012706 

001100 



MOV 

fSTACK.SP 

.'SETUP THE STACK POINTER 

006040 

012737 

000001 

001176 


MOV 

#1.$TIMES 

.'.'DO 1 ITERATI*'* 

006046 

005037 

001256 



CLR 

TINEA 

.'CLEAR THE TIMEOUT VALUE STORAGE 


SEO 0037 
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L 3 


006052 005037 001260 


006056 

006062 


006070 

006076 

006104 

006110 

006116 

006124 

006132 

006140 

006144 

006152 

006156 

006164 

006166 

006170 

006174 

006174 

006202 

006210 

006216 

006224 

006232 

006236 

006244 

006252 

006260 

006262 

006264 


006266 

006274 

006302 

006306 

006310 

006314 

006316 

006320 

006324 

006332 

006336 

006340 


006344 

006352 

006354 


005037 

012737 


113760 

013737 

005060 

113760 

013737 

013737 

016037 

010037 

062737 

005037 

023737 

001403 

104030 

000137 

113760 

013737 

016037 

012737 

013737 

005137 

013737 

043737 

023737 

001401 

104031 

000240 


113760 

013737 

005760 

001006 

005737 

001372 

104006 

000137 

013737 

004537 

001256 

012637 


023727 

103001 

104007 


001252 

003720 


001224 

001224 

000012 

001226 

001226 

001226 

000012 

001122 

000012 

001124 

001124 


006704 

001224 

001224 

000012 

011700 

001124 

001166 

001126 

001166 

001124 


001254 


000010 

001236 

000010 

001234 

001240 

001126 

001122 

001126 


000010 

001234 

001126 

001124 

001166 

001164 

001164 

001164 


CLR 

.•START THE TIMER 

CLR 
MOV 


TIMEAP .-CLEAR THE ♦ 251 TOLERANCE LOCATION 


TIME 

#2000.. WATCH 


.•CLEAR THE ELAPSED TIME COUNTER 
.•SET WATCH TO 2000. MS 


.•SEIZE THE DRIVE THROUGH PORT A 


64S: 


65$: 


Move 

MOV 

CLR 

MOVB 

MOV 

MOV 

MOV 

MOV 

ADD 

CLR 

CMP 

BEO 

EMT 

JMP 

MOVB 

MOV 

MOV 

MOV 

MOV 

COM 

MOV 

BIC 

CMP 

BEO 

EMT 

NOP 


PORTA. RMCS2(R0) ;SELECT PORT A 
PORTA, SEIZPT .-STORE SEIZING PORT'S ADDRESS 
RMDS(RO) .-WRITE RMDS 

PORTB.RMCS2(R0) :SELECT PORT B 
PORTB.PTNBR .-MOVE PORT ADDRESS TO LOCATION FOR TTPEOUT 
PORTB.OPPRT 
RMDS(RO).$BDDAT 

;RH/RM BASE ADDRESS 
GENERATE BAD REGISTER ADDRESS 
REGISTER SHOULD BE ZERO 
IS THE REGISTER ZERO 
8R IF IT IS 


RO.SBDADR 
#RMDS.$BDADR 
S6DDAT 

SGDDAT.SBDDAT 

64$ 

30 

4$ 


•OPPOSITE' PORT ADDRESS 
SEE IF DRIVE SEIZED BY PORT A 


BYPASS REST OF THE SUBTEST 


PORrA.RMCS2(RO) ;SELECT PORT A 

PORTA.PTNBR .MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 
RMDS(RO}.$BDOAT ;SEE IF SEIZING PORT SEES CORRECT STATUS 
fMOLiPGM!OPR!DRYJVV,$6DDAT ;EXPECTED STATUS 
$GDDAT.$TMP1 .-USE GOOD DATA AS A MASK 

.•COMPLEMENT THE EXPECTED STATUS 
.-SAVE THE ACTUAL STATUS 
.•CLEAR UNWANTED BITS 
.-ARE THE EXPECTED STATUS BITS SET ? 

.-BR IF THEY ARE 


$TMP1 
$BDDAT.$TMPO 
$TMP1 .$TMPO 
$6DDAT.$TMP0 
65$ 

31 


.•WAIT FOR PORT A TO TIMEOUT 


001226 

000010 

MOVB 

001226 

001234 

MOV 

000012 


1$: TST 



BNE 

001254 


TST 



BNE 



EMT 

006356 


JMP 

001252 

001256 

2$: MOV 

013522 


JSR 



.WORD 

001260 


MOV 



.'VERIFY THAT 

001256 

000764 

CMP 


PORTB.RMCS2(RO) :SELECT PORT B 

PORTB.PTNBR .-MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 


BHIS 

EMT 


rwr* I 1 1 

RMPSCRO) 

2 $ 

WATCH 

1 $ 

^$ 

TIME-TIMEA 

r5.t6ler 

TIMEA 

(SP)+. TIMEAP 


TIMEA.#500. 


.-WAIT FOR THE DRIVE TO TIMEOUT 
;BR WHEN TIMEOUT OCCURS 
.•CHECK WATCH 
.BR IF NOT ZERO 

.-BYPASS THE REST OF THE TEST 
.•SAVE THE ELAPSED TIME FOR PORT A 
.•CALCULATE THE TOLERANCE 
.•TIMEOUT VALUE FOR PORT A 
.•♦251 TOLERANCE 


;JS TIMEOUT VALUE AT LEAST 500 NS ? 
:BR IF IT IS 


n 3 

C2RN1A0 RH80 DUAL PORT PT2 MACRO VOA.OO 15-JAN-82 07:13:40 PAGE 9-1? 

14 MEASURE THE TIMEOUT ONE-SHOT THROUGH PORT A 


SEQ 0038 


006356 


;VERJFy THAT THE DRIVE RETURNED TO NEUTRAL AFTER PORT A TIMED OUT 


.-VERIFY THAT THE DRIVE IS IN NEUTRAL 


006356 

005037 

001250 



CLR 

RELERR 

006362 

012737 

000012 

001122 


MOV 

fRMDS.SBDADR 

006370 

060037 

001122 



ADD 

RO.$BDADR 

006374 

012737 

011700 

001124 


MOV 

AMOL.'PGM'DPR'DRY 

006402 

113760 

001224 

000010 


MOVB 

PORTA. RMCS2(R0) 

006410 

016037 

000012 

001170 


MOV 

RMDS(R0).$TMP2 

006416 

013737 

001170 

001164 


MOV 

$TMP2.$TMP0 

006424 

042737 

100100 

001164 


BIC 

fATAJVV.STMPO 

006432 

113760 

001226 

000010 


MOVB 

P0RTB,RMCS2(R0) 

006440 

016037 

000012 

001172 


MOV 

RMDS(R0).$TMP3 

006446 

013737 

001172 

001166 


MOV 

$TMP3. STMPI 

006454 

042737 

100100 

001166 


BIC 

#ATA!VV. STMPI 

006462 

023737 

001164 

001166 


CMP 

STMPO. STMPI 

006470 

001006 




BNE 

66S 

006472 

005737 

001164 



TST 

STMPO 

006476 

001045 




BNE 

68S 

006500 

104034 




EMT 

34 

006502 

000137 

006702 



JMP 

70S 

006506 

013737 

001170 

001126 

66S: 

MOV 

STMP2.S8DDAT 

006514 

013737 

001226 

001234 


MOV 

PORTS. PTNBR 

006522 

113760 

001226 

000010 


MOVB 

PORTB.RMCS2(RO) 

006530 

005737 

001164 



TST 

STMPO 

006534 

001414 




BEQ 

67S 

006536 

013737 

001224 

001234 


MOV 

PORTA. PTNBR 

006544 

013737 

001172 

001126 


MOV 

STMP3.SBDDAT 

006552 

113760 

001224 

000010 


MOVB 

PORTA, RMCS2(R0) 

006560 

005737 

001166 



TST 

STMPI 

006564 

001012 




BNE 

68S 

006566 

012737 

177777 

001250 

67S: 

MOV 

#-1 .RELERR 

006574 

012760 

000011 

000000 


MOV 

fll.RMCSKRO) 

006602 

012760 

000013 

000000 


MOV 

#13.RMCS1(R0) 

006610 

104035 




EMT 

35 

006612 

013737 

001170 

001126 

68S: 

MOV 

STMP2,S60DAT 

006620 

013737 

001224 

001234 


MOV 

PORTA.PTNBR 

006626 

042737 

100000 

001170 


BIC 

#ATA.STMP2 

006634 

023737 

001124 

001170 


CMP 

SGDDAT,STMP2 

006642 

001401 




BEQ 

69S 

006644 

104037 




EMT 

37 

006646 

013737 

001172 

001126 

69S: 

MOV 

STMP3,SBDDAT 

006654 

013737 

001226 

001234 


NOV 

PORTB.PTNBR 

006662 

042737 

100000 

001172 


BIC 

#ATA,STMP3 

006670 

023737 

001124 

001172 


CMP 

S6DDAT.STMP3 

006676 

001401 




BEQ 

70S 

006700 

104037 




EMT 

37 

006702 

000240 



70$: 

NOP 


006704 

000004 



4$: 

SCOPE 



CLEAR THE 'RELEASE ERROR ' INDICATOR 
FORM THE ADDRESS OF RMDS FOR TYPEOUT 
ADD THE I/O dASE ADDRESS 
VV.SGDDAT .-COMPARISON CONSTANT 
SELECT PORT A. 

GET THE DRIVE STATUS REGISTER FROM PORT A. 

COPY IT INTO 'STMPO* 

CLEAR PORT DEPENDENT BITS FROM THE COPY 
SELECT PORT B. 

GET THE DRIVE STATUS REGISTER FROM PORT 8. 

COPY IT INTO 'STMPI* 

CLEAR PORT DEPENDENT BITS FROM THE COPY 

IS THE STATUS REGISTER THE SAME FROM BOTH PORTS ? 

BR IF NOT 

REGISTERS ARE THE SAME: ARE THEY ZERO ? 

BR IF NOT 

BYPASS THE REST OF THE CHECKS 
SET UP POSSIBLE BAD DATA FOR ERROR MESSAGE 
SEIZING PORT IF TEST SHOWS DRIVE NOT IN NEUTRAL 
SELECT PORT B. 

SEE IF STATUS EQ 0 FROM PORT A. 

BR IF ZERO 

SEIZING PORT IF TEST SHOWS DRIVE NOT IN NEUTRAL 
*8AD DATA* FOR ERROR TYPE OUT 
SELECT PORT A. 

SEE IF STATUS EQ ZERO FROM PORT 6. 

BR IF NOT 

SET 'RELEASE ERROR* INDICATOR 
CLEAR THE DRIVE 
RELEASE THE DRIVE 

LOOK FOR BIT FAILURES WHEN RMDS READ 
CHANGE PORT NUMBER 
DON'T CHECK THE ATTN BIT 
ALL BITS OK ? 

BR IF OK FROM PORT A. 


CHECK RMDS FOR BIT FAILURES 
CHANGE PORT NUMBER 
DON'T CHECK THE ATTN BIT 
SEE IF READ OK FROM PORT B. 
BR IF OK 


.-LOOP ? 


- FROM PORT B. 


.•♦TEST 5 


MEASURE THE TIMEOUT ONE-SHOT THROUGH PORT 6 


j 
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SEQ 0039 


006706 

006706 

006712 

006714 

006716 

006722 

006730 

006736 

006744 

006744 

006752 

006756 

006764 

006770 


006774 

007000 


007006 

007014 

007022 

007026 

007034 

007042 

007050 

007056 

007062 

007070 

007074 

007102 

007104 

007106 

007112 

007112 

007120 

007126 

007134 

007142 

007150 

007154 


005737 

001406 

100002 

000137 

012737 

012737 

012737 

112737 

012706 

012737 

005037 

005037 


005037 

012737 


113760 

013737 

005060 

113760 

013737 

013737 

016037 

010037 

062737 

005037 

023737 

001403 

104030 

000137 

113760 

013737 

016037 

8i§737 

00^37 

015737 


001266 


002610 

177777 

006744 

006744 

000005 

001100 

000001 

001262 

001264 


001252 

003720 


001226 

001226 

000012 

001224 

001224 

001224 

000012 

001122 

000012 

001124 

001124 


007622 

001226 

001226 

000012 

011700 


MEASURE THE TIMEOUT ONE-SHOT VALUE THROUGH PORT B 

A. WRITE 0*S INTO RMDS THROUGH PORT B AND VERIFY THAT THE 
DRIVE HAS BEEN SEIZED. 

B. WAIT FOR TIMEOUT TO OCCUR. MEASURE THE DURATION OF THE TIMEOUT 
ONE-SHOT AND SAVE THE VALUE FOR LATER USE. 

C. VERIFY THAT THE TIMEOUT OCCURRED AND THAT THE DRIVE RETURNS 
TO NEUTRAL 


001266 

001106 

001110 

001102 

001176 


TEST5: 


KY8CTL 

2S 

IS 

EXEC 

#-1.KYBCTL 

#TEST5,$LPA0R 

#TEST5,SLPERR 

#5.STSTNM 

#STACK,SP 

#1,STIMES 


.■PERFORMING ONLY SINGLE TESTS ? 
;BR IF NOT 

:BR IF JUST ENTERED TEST 
.■RETURN I GET NEXT TEST NUMBER 
;SET SINGLE TEST INDICATOR 
.■SETUP SCOPE LOOP ADDRESS 
.SETUP ERROR LOOP ADDRESS 

.■MOVE #5 TEST NUMBER 
.SETUP THE STACK POINTER 
;;D0 1 ITERATION 


TIMES .-CLEAR THE TIMEOUT VALUE STORAGE LOCATION 

TIMEBP .-CLEAR THE ^ 25X TOLERANCE LOCATION 


.-START THE TIMER 


001166 

001126 


001254 


000010 

001236 

000010 

001234 

001240 

001126 

001122 

001126 


000010 

001234 

00M26 

001124 

001166 

001164 


TIME 

#2000..UATCH 


.-CLEAR THE ELAPSED TIME COUNTER 
.-SET WATCH TO 2000. MS 


.-SEIZE THE DRIVE THROUGH PORT B 


Move 

MOV 

CLR 

M0V8 

MOV 

MOV 

MOV 

MOV 

ADD 

CLR 

CMP 

BED 

EMT 

JMP 


P0RTB.RMCS2(R0) ;SELECT PORT B 
P0RT8.SEIZPT .-STORE SEIZING PORT'S ADDRESS 
RMDS(RO) .-WRITE RMDS 

P0RTA.RMCS2(R0) ; SELECT PORT A 

PORTA.PTNBR .-MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 


PORTA.gPPRT 

RMDS(RO).SBOO 

R0.S8DADR 

#RMDS.$BDADR 

SGDDAT 

SGDDAT.SBDDAT 

4S 


RT ; 'OPPOSITE* PORT ADDRESS 
SBDDAT .-SEE IF DRIVE SEIZED BY PORT B 


.-RH/RM BASE ADDRESS 
.-GENERATE BAD REGISTER ADDRESS 
.-REGISTER SHOULD BE ZERO 
.-IS THE REGISTER ZERO 
.-BR IF IT IS 

.-BYPASS REST OF THE SUBTEST 


P0RT8.RMCS2(R0) :SELECT PORT B 

PORTB.PTNBR .-MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 
RMDS (RO) .SBDDAT .-SEE IF SEIZING PORT SEES CORRECT STATUS 
fMOL!PGM!DPR!ORY!VV.SGDDAT .-EXPECTED STATUS 
SGDDAT. STMP1 .-USE GOOD DATA AS A MASK 
STMP1 .-COMPLEMENT THE EXPECTED STATUS 

SBDDAT. STMPO .-SAVE THE ACTUAL STATUS 


SEQ 0040 
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MEASURE 

THE TIMEOUT ONE-SHOT THROUGH 

PORT B 


007162 

043737 

001166 001164 

BIC 

$TMP1,$TMP0 

007170 

023737 

001124 001164 

CMP 

$GDDAT.$TMPO 

007176 

001401 


BEQ 

65$ 

007200 

104031 


EMT 

31 

007202 

000240 

65$: 

NOP 



.'CLEAR UNWANTED BITS 

.'ARE THE EXPECTED STATUS BITS SET ? 

;BR IF THEY ARE 


007204 

007212 

007220 

007224 

007226 

007232 

007234 

007236 

007242 

007250 

007254 

007256 


007262 

007270 

007272 


007274 


007274 

007300 

007306 

007312 

007320 

007326 

007334 

007342 

007350 

007356 

007364 

007372 

007400 

007406 

007410 

007414 

007416 

007420 

007424 

007432 

007440 

007446 

007452 

007454 

007462 


113760 

013737 

005760 

001006 

005737 

001372 

104006 

000137 

013737 

004537 

001262 

012637 


001264 


005037 

012737 

060037 

012737 

113760 

016037 

013737 

042737 

113760 

016037 

013737 

042737 

023737 

001006 

005737 

001045 

104034 

000137 

013737 

013737 

113760 

005737 

001414 

013737 

013737 


001250 

000012 

001122 

011700 

0C1224 

000012 

001170 

100100 

001226 

000012 

001172 

100100 

001164 

001164 


007620 

001170 

001226 

001226 

001164 

001224 

001172 


.'WAIT FOR PORT B TO TIMEOUT 


001224 000010 
001224 001234 
000012 

001254 


007274 

001252 001262 
013522 


MOVB 

MOV 

TST 

BNE 

TST 

BNE 

EMT 

JMP 

MOV 

JSR 

.WORD 

MOV 


P0RTA,RMCS2(R0) ;SELECT PORT A 

PORTA. PTNBR .'MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 


RMDS(RO) 

2 $ 

WATCH 

1 $ 

6 

3$ 

TIME.TIMEB 
R5. TOLER 
TIMEB 

(SP)+.TIMEBP 


WAIT FOR THE DRIVE TO TIMEOUT 
BR WHEN TIMEOUT OCCURS 
CHECK WATCH 
BR IF NOT ZERO 

BYPASS THE REST OF THE TEST 
SAVE THE ELAPSED TIME FOR PORT B 
CALCULATE THE TOLERANCE 
TIMEOUT VALUE FOR PORT B 
*251 TOLERANCE 


.'VERIFY THAT THE TIMEOUT ONE-SHOT VALUE IS AT LEAST 500 MS 


023727 001262 000764 

103001 

104007 


T^MEB.fSOO. 

7 


;IS TIMEOUT VALUE AT LEAST 500 MS ? 
;BR IF IT IS 


.‘VERIFY THAT THE DRIVE RETURNED TO NEUTRAL AFTER PORT 8 TIMED OUT 


.‘VERIFY THAT THE DRIVE IS IN NEUTRAL 


001122 

001124 

000010 

001170 

001164 

001164 

000010 

001172 

001166 

001166 

001166 


001126 

001234 

000010 


001234 

001126 


CLR RELERR 

MOV fRMDS.SBDADR 

ADD RU.SBDADR ; 

MOV Mm! POM 'DPR! DRY! 

MOVB PORTA. RNCS2(R0) ; 

MOV RM0S(R0).$TNP2 ; 

MOV STMP2.STNP0 

BIC #ATA!W.tTMPO ; 

MOVB P0RTB.RMCS2(RQ) ; 

MOV RMDS(R0).$TMP3 ; 

MOV STMP3.ITMP1 

BIC #ATA!VV,$TMP1 ; 

CMP STMPO.STMPI 

BNE 66$ 

TST STMPO 

BNE 68$ ; 

EMT 34 

JMP 70$ 

MOV $TMP2.$BDDAT 

MOV PORTB. PTNBR 

MOVB P0RTB.RMCS2(R0) ; 

TST STMPO 

BED 67$ 

MOV PORTA. PTNBR 

MOV $TMP3.$BDDAT 


CLEAR THE 'RELEASE ERROR ' INDICATOR 
FORM THE ADDRESS OF RMDS FOR TYPEOUT 
ADD THE I/O BASE ADDRESS 
VV.SGDDAT .‘COMPARISON CONSTANT 
SELECT PORT A. 

GET THE DRIVE STATUS REGISTER FROM PORT A. 

COPY IT INTO 'STMPO* 

CLEAR PORT DEPENDENT BITS FROM THE COPY 
SELECT PORT B. 

GET THE DRIVE STATUS REGISTER FROM PORT B. 

COPY IT INTO *$TMP1* 

CLEAR PORT DEPENDENT BITS FROM THE COPY 

IS THE STATUS REGISTER THE SAME FROM BOTH PORTS ? 

BR IF NOT 

REGISTERS ARE THE SAME: ARE THEY ZERO 
BR IF NOT 

BYPASS THE REST OF THE CHECKS 
SET UP POSSIBLE BAD DATA FOR ERROR MESSAGE 
SEIZING PORT IF TEST SilOUS DRIVE NOT IN NEUTRAL 
SELECT PORT B. 

SEE IF STATUS EQ 0 FROM PORT A. 

BR IF ZERO 

SEIZING POR^ IF TEST SHOWS DRIVE NOT IN NEUTRAL 
•BAD DATA' FOR ERROR TYPE OUT 


CZRNIAO RM80 DUAL PORT PT2 MACRO V04.00 15-JAN-82 07:13:40 PA6C 9-1^ ^ 
T5 MEASURE THE TIMEOUT ONE-SHOT THROUGH PORT B 


SEQ 0041 


007470 

007476 

007502 

007504 

007512 

007520 

007526 

007530 

007536 

007544 

007552 

007560 

007562 

007564 

007572 

007600 

007606 

007614 

007616 

007620 

007622 


113760 

005737 

001012 

012737 

012760 

012760 

104035 

013737 

013737 

042737 

023737 

001401 

104037 

013737 

013737 

042737 

023737 

001401 

104037 

000240 

000004 


001224 

001166 

177777 

000011 

000013 

001170 

001224 

100000 

001124 


001172 

001226 

100000 

001124 


000010 


001250 67$: 
000000 
000000 

001126 68$: 
001234 
001170 
001170 


001126 69$: 
001234 
001172 
001172 


MOVB 

TST 

BNE 

MOV 

MOV 

MOV 

EMT 

MOV 

MOV 

BIC 

CMP 

BEQ 

EMT 

MOV 

MOV 

BIC 

CMP 

BEQ 

EMT 

NOP 

SCOPE 


PORTA, RMCS2(R0) 
$TMP1 
68 $ 

f-1 ,RELERR 

#11,RMCS1(R0) 

#13,RMCS1(R0) 

35 

$TMP2,$B0DAT 
PORTA. PTNBR 
<rATA.$TMP2 
$GDDAT.$TMP2 

$TMP3,$B00AT 

PORTB.PTNBR 

#ATA.$TMP3 

$6DDAT.$TMP3 

70$ 

37 


SELECT PORT A. 

SEE IF STATUS EQ ZERO FROM PORT B. 

BR IF NOT 

SET 'RELEASE ERROR' INDICATOR 
CLEAR THE DRIVE 
RELEASE THE DRIVE 

LOOK FOR BIT FAILURES WHEN RMDS READ 
CHANGE PORT NUMBER 
DON'T CHECK THE ATTN BIT 
ALL BITS OK ? 

BR IF OK FROM PORT A. 


CHECK RMDS FOR BIT FAILURES 
CHANGE PORT NIJMBER 
DON'T CHECK THE ATTN BIT 
SEE IF READ OK FROM PORT B. 
BR IF OK 


;LOOP ? 


- FROM PORT B. 


007624 

007624 

007630 

007632 

007634 

007640 

007646 

007654 

007662 

007662 

007670 

007674 


005737 

001406 

100002 

000137 

012737 

012737 

012737 

112737 

012737 


001266 


002610 

177777 

007662 

007662 

000006 

001100 

000001 


TEST 6 


TEST 'PORT SELECT' SWITCH, DRIVE CYCLED UP 


TEST THE OPERATION OF THE 'PORT SELECT* SWITCH (DRIVE CYCLED UP). 

A. SWITCH TO PORT 'A* POSITION. VERIFY THAT THE DRIVE IS IN 
NEUTRAL AND THAT THE STATUS BITS IN RMDS, AS READ THROUGH BOTH 
PORTS. ARE CORRECT. 

B. SWITCH TO PORT 'B* POSITION. VERIFY THAT THE DRIVE IS IN 
NEUTRAL AND THAT THE STATUS BITS IN RMDS, AS READ THROUGH BOTH 
PORTS, ARE CORRECT. 

C. RETURN THE 'PORT SELECT* SWITCH TO THE ’A/B* POSITION. VERIFY 
THE DRIVE STATE. 


TST6: 


001266 

001106 

001110 

001102 

001176 


TEST6: 


KYBCTL 

2 $ 

1 $ 

EXEC 

f-1 .KYBCTL 

#TEh6,$LPADR 

fTEST6.$LPERR 

#6.$TSTNR 

fSTACK.SP 

#1,$TIMES 


PERFORMING ONLY SINGLE TESTS ? 
BR IF NOT 

BR IF JUST ENTERED TEST 
RETURN ft GET NEXT TEST NUMBER 
SET SINGLE TEST INDICATOR 
SETUP SCOPE LOOP ADDRESS 
SETUP ERROR LOOP ADDRESS 

MOVE #6 TEST NUMBER 
SETUP THE STACK POINTER 
;D0 1 ITERATION 


007702 113760 001224 000010 


.'CLEAR ATTENTION BITS FOR BOTH PORTS 

MOVB PORTA, RMCS2(R0) .'SELECT PORT #A 


D 4 

C2RN1A0 RH80 DUAL P -12 MACRO V04.00 15-JAN-82 07:13:40 PAGE 9-16 
T6 TEST 'PORT SELECT' SWITCH. DRIVE CYCLED UP 


SEQ 0042 


007710 

005060 

000012 


CLR 

RMDS(RO) 

SEIZE THE DRIVE 

007714 

012760 

000011 

000000 

MOV 

flI.RMCSKRO) 

ISSUE DRIVE CLEAR 

007722 

012760 

000013 

000000 

MOV 

A13,RMCS‘' (RO) 

P0RT8.RMCS2(R0) 

RMDS(RO) 

RELEASE THE DRIVE 

007730 

113760 

001226 

000010 

MOVB 

SELECT PORT 0B 

007736 

005060 

000012 

CLR 

SEIZE THE DRIVE THROUGH PORT 'B 

007/42 

012760 

000011 

000000 

MOV 

«11.RMCS1(R0) 

ISSUE DRIVE CLEAR 

007750 

012760 

000013 

000000 

MOV 

«13.RMCS1(R0) 

.SWTCHA 

RELEASE THE DRIVE 

SWITCH TO 'A' 

PRESS 'CONTINUE' 

298 007756 

104401 

020154 


TYPE 

299 007762 

300 007766 

104401 

000000 

020246 


TYPE 

HALT 

.CONTUE 


.•VERIFY THAT THE DRIVE IS IN NEUTRAL 


007770 

005037 

001250 



CLR 

RELERR 

007774 

012737 

000012 

001122 


MOV 

#RM0S.$BDADn 

010002 

060037 

001122 



ADD 

RO.SBDADR 

01C006 

012737 

011700 

001124 


MOV 

#MOLJPGM!DPR!DRY 

010014 

113760 

001224 

000010 


MOVB 

P0RTA,RMCS2CR0) 

010022 

016037 

000012 

001170 


MOV 

RMDS(R0),$TMP2 

010030 

013737 

001170 

001164 


MOV 

$TMP2.$TMP0 

010036 

042737 

100100 

001164 


BIC 

IATAiVV,$TMPO 

010044 

113760 

001226 

000010 


MOVB 

PORTB.RMCS2(RO) 

010052 

016037 

000012 

001172 


MOV 

RMDS(R0).$TMP3 

010060 

013737 

001172 

001166 


MOV 

$TNP3.$TMP1 

010066 

042737 

100100 

001166 


BIC 

#ATA*VV.$TMP1 

010074 

023737 

001164 

001166 


CMP 

$TMP0.$TMP1 

010102 

001006 




BNE 

64$ 

010104 

005737 

001164 



TST 

$TMPO 

010110 

001045 




BNE 

66$ 

010112 

104034 




EMT 

34 

010114 

000137 

010314 



JMP 

68$ 

010120 

013737 

001170 

001126 

64$: 

MOV 

$TMP2,$BDDAT 

010126 

013737 

001226 

001234 


MOV 

PORTB.PTNBR 

010134 

113760 

001226 

000010 


MOVB 

P0RTB«RMCS2(R0) 

010142 

005737 

001164 



TST 

STMPO 

010146 

001414 




6E0 

65$ 

010150 

013737 

001224 

001234 


MOV 

PORTA.PTNBR 

010156 

013737 

001172 

001126 


MOV 

$TMP3«$80DAT 

010164 

113760 

001224 

000010 


MOVB 

PORTA. RNCS2(R0) 

010172 

005737 

001166 



TST 

STNPI 

010176 

001012 




BNE 

66$ 

010200 

012737 

177777 

001250 

65$: 

MOV 

#-1 .RELERR 

010206 

012760 

000011 

000000 


MOV 

flI.RNCSKRO) 

010214 

012760 

000013 

000000 


MOV 

#13.RNCS1(R0) 

010222 

104017 




EMT 

17 

010224 

013737 

001170 

001126 

66$: 

MOV 

$TNP2.$BDDAT 

010232 

013737 

001224 

001234 


NOV 

PORTA.PTNBR 

010240 

042737 

100000 

001170 


BIC 

#ATA.$TNW 

010246 

023737 

001124 

001170 


CMP 

$GD0AT.$TNP2 

01C254 

001401 




BEQ 


010256 

104037 




EMT 

37 

010260 

013737 

001172 

001126 

67$: 

NOV 

$TMP3,$B00AT 

010266 

013737 

001226 

001234 


NOV 

PORTB.PTNBR 

010274 

042737 

100000 

001172 


BIC 

#ATA,$TMP3 

010302 

023737 

001124 

001172 


CMP 

$GDDAT.$TMP3 

010310 

001401 




BEQ 

68$ 

010312 

104037 




EMT 

37 


CLEAR THE 'RELEASE ERROR ' INDICATOR 
FORM THE ADDRESS OF RMDS FOR TYPEOUT 
ADD THE I/O BASE ADDRESS 
VV.SGDDAT : COMPARISON CONSTANT 
SELECT PORT A. 

GET THE DRIVE STATUS REGISTER FROM PORT A. 

COPY IT INTO 'STMPO* 

CLEAR PORT DEPENDENT BITS FROM THE COPY 
SELECT PORT B. 

GET THE DRIVE STATUS REGISTER FROM PORT B. 

COPY IT INTO '$TMPr 

CLEAR PORT DEPENDENT BITS FROM THE COPY 

IS THE STATUS REGISTER THE SAME FROM BOTH PORTS ? 

6R IF NOT 

REGISTERS ARE THE SAME: ARE THEY ZERO ? 

8R IF NOT 

BYPASS THE REST OF THE CHECKS 
SET UP POSSIBLE BAD DATA FOR ERROR MESSAGE 
SEIZING PORT TEST SHOWS DRIVE NOT IN NEUTRAL 
SELECT PORT B. 

SEE IF STATUS EQ 0 FROM PORT A. 

BR IF ZERO 

SEIZING PORT IF TEST SHOWS DRIVE NOT IN NEUTRAL 
'BAD DATA' FOR ERROR TYPE OUT 
SELECT PORT A 

SEE IF STATUS* EO ZERO FROM PORT B. 

BR IF NOT 

SET 'RELEASE ERROR' INDICATOR 
CLEAR THE DRIVE 
RELEASE THE DRIVE 

LOOK FOR BIT FAILURES WHEN RMDS READ 
CHANGE PORT NUMBER 
DON'T CHECK THE ATTN BIT 
ALL BITS OK ? 

BR IF OK FROM PORT A. 


CHECK RFOS FOR BIT FAILURES 
CHANGE PORT NUMBER 
DON'T CHECK THE ATTN BIT 
SEE IF READ OK FROM PORT B. 
BR IF OK 


- FROM PORT B. 


1 CZRNIAO RMSO DUAL PORT 

PT2 MACRO V04.00 

15- JAN-8? 07: 

13:40 PAGE 9-1^ ^ 

SEQ 0043 

T6 TEST ’PORT SELECT* SWITCH, DRIVt 

CYCLED UP 



0103U 

000240 



68$: 

NOP 



303 010316 

104401 

020211 



TYPE 

.SUTCHB 

.-SWITCH TO ‘B* 

304 010322 

104401 

020246 



TYPE 

.CONTUE 

; PRESS ‘CONTINUE* 

305 010326 

306 

307 

000000 




HALT 






.-VERIFY 

THAT 

THE DRIVE IS IN NEUTRAL 

010330 

005037 

001250 



CLR 

RELERR 

.-CLEAR THE 'RELEASE ERROR * INDICATOR 

010334 

012737 

000012 

001122 


MOV 

«RMDS.$BDADR 

RO.$BDADR 

.-FORM THE ADDRESS OF RMDS FOR TYPEOUT 

010342 

060037 

001122 



ADD 

.-ADD THE I/O BASE ADDRESS 

010346 

012737 

011700 

001124 


NOV 

#M0L!P6M!DPR.DRYIVV.$GDDAT : COMPARISON CONSTANT 

010354 

113760 

001224 

000010 


MOVB 

PORTA. RMCS2(R0> 

.-SELECT PORT A. 

010362 

016037 

000012 

001170 


MOV 

RM0S(R0),$TMP2 

$TMP2.$TMP0 

.-GET THE DRIVE STATUS REGISTER FROM PORT A. 

010370 

013737 

001170 

001164 


MOV 

.-COPY IT INTO 'STMPO* 

010376 

042737 

100100 

001164 


BIC 

#ATA!VV.$TMPO 

.-CLEAR PORT DEPENDENT BITS FROM THE COPY 

010404 

113760 

001226 

000010 


MOVB 

P0RTB.RMCS2(RQ) 

RM0S(R0}.$TMP3 

$TMP3.$TMP1 

.-SELECT PORT B. 

010412 

016037 

000012 

001172 


MOV 

:GET THE DRIVE STATUS REGISTER FROM PORT B. 

010420 

013737 

001172 

001166 


MOV 

.-COPY IT INTO 'STMPV 

010426 

042737 

100100 

001166 


BIC 

#ATA!VV.$TMP1 

.-CLEAR PORT DEPENDENT BITS FROM THE COPY 

010434 

023737 

001164 

001166 


CMP 

$TMP0,$TMP1 

.-IS THE STATUS REGISTER THE SAME FROM BOTH PORTS ? 

010442 

001006 




BNE 

69$ 

;BR IF NOT 

010444 

005737 

001164 



TST 

$TMPO 

.-REGISTERS ARE THE SAME: ARE THEY ZERO ? 

010450 

001045 




BNE 

71$ 

.-BR IF NOT 

010452 

104034 




EMT 

34 


010454 

000137 

010654 



JMP 

73$ 

.-BYPASS THE REST OF THE CHECKS 

010460 

013737 

001170 

001126 

69$: 

MOV 

$TMP2.$B00AT 

.-SET UP POSSIBLE BAD DATA FOR ERROR MESSAGE 

010466 

013737 

001226 

001234 


MOV 

P0RT6.PTNBR 

.'SEIZING PORT IF TEST SHOWS DRIVE NOT IN NEUTRAL 

010474 

113760 

001226 

000010 


MOVB 

PORTB.RMCS2(R0) 

.-SELECT PORT B. 

010502 

005737 

001164 



TST 

$TMPO 

.-SEE IF STATUS EQ 0 FROM PORT A. 

010506 

001414 




BEO 

70$ 

;BR IF ZERO 

010510 

013737 

001224 

001234 


MOV 

PORTA. PTNBR 

.-SEIZING PORT IF TEST SHOWS DRIVE NOT IN NEUTRAL 

010516 

013737 

001172 

001126 


MOV 

$TMP3.$6D0AT 

.-•BAD DATA* FOR ERROR TYPE OUT 

010524 

113760 

001224 

000010 


MOVB 

P0RTA.RMCS2<R0> 

.-SELECT PORT A. 

010532 

005737 

001166 



TST 

$TMP1 

;SEE IF STATUS EQ ZERO FROM PORT B. 

010536 

001012 




BNE 

71$ 

;BR IF M)T 

010540 

012737 

177777 

001250 

70$: 

MOV 

#-1 .RELERR 

.-SET 'RELEASE ERROR* INDICATOR 

010546 

012760 

000011 

000000 


MOV 

#11.RMCS1(R0) 

.-CLEAR THE DRIVE 

010554 

012760 

000013 

000000 


MOV 

#13,RMCS1 CRO) 

.-RELEASE THE DRIVE 

010562 

104020 




EMT 

20 


010564 

013737 

001170 

001126 

71$: 

MOV 

$TMP2.$80DAT 

.-LOOK FOR BIT FAILURES WHEN RMDS READ 

010572 

013737 

001224 

001234 


MOV 

PORTA-PTNBR 

#ATA.$TMP2 

.-CHANGE PORT NUMBER 

010600 

042737 

100000 

001170 


BIC 

.-DON'T CHECK THE ATTN BIT 

010606 

023737 

001124 

001170 


CMP 

$GDDAT.$THP2 

.-ALL BITS OK ? 

010614 

001401 




BEQ 

72$ 

;BR IF OK FROM PORT A. 

010616 

104037 




EMT 

37 


010620 

013737 

001172 

001126 

72$: 

MOV 

$TMP3.$BDDAT 

.-CHECK RMDS FOR BIT FAILURES - FROM PORT B. 

010626 

013737 

001226 

001234 


MOV 

PORTB.PTNBR 

.-CHANGE PORT NUMBER 

010^ 

042737 

100000 

001172 


BIC 

#ATA.$TMP3 , 

.-DON’T CHECK THE ATTN BIT 

010642 

023737 

001124 

001172 


CMP 

|6D0AT.$TNP3 

;SEE IF READ OK FROM PORT B. 

010650 

001401 




BEQ 

73$ 

;BR IF OK 

010652 

104037 




EMT 

37 


010654 

000240 



73$: 

NOP 



308 010656 

005737 

001266 



TST 

KYBCTL 

.'SINGLE TEST MODE ? 

309 010662 

001402 




BEO 

1$ 

;BR IF NOT 

310 010664 

104401 

020106 



TYPE 

.SUTCKN 

;RETURN SWITCH TO 'A/B* 

311 010670 

312 

000004 



1$: 

SCOPE 

.-LOOP ? 

1 


SEQ 0044 


C2RNIA0 RH80 DUAL PORT PT2 MACRO V04.00 15- JAN-82 07:13:40 PACE 9-18 
T6 TEST 'PORT SELECT* SWITCH. DRIVE CYCLED UP 


010672 

010672 

010676 

010700 

010702 

010706 

0107U 

010722 

010730 

010730 

010736 

010742 

010750 

010756 

010764 

010770 

010774 

011000 

011006 

011010 

011016 


005737 

001406 

100002 

000137 

012737 

012737 

012737 

112737 

012706 

012737 

113760 

013737 

104401 

104401 

104401 

032760 

001374 

032760 

001774 


001266 


002610 

177777 

010730 

010730 

000007 

001100 

000001 

001224 

001224 

020317 

020154 

020337 


TEST 7 TEST 'PORT SELECT* SWITCH ON PORT A 

TEST THE OPERATION OF THE 'PORT SELECT* SWITCH (DRIVE CYCLED DOWN). 

A. CYCLE THE DRIVE DOWN. 

B. SWITCH TO PORT A POSITION. VERIFY THAT THE DRIVE IS IN 
NEUTRAL AND THAT THE STATUS BITS IN RMDS. AS READ THROUGH BOTH 
PORTS. ARE CORRECT. 

C. SWITCH THE 'PORT SELECT* SWITCH TO A; CYCLE THE DRIVE UP. 

D. WHEN THE DRIVE CYCLES UP. VERIFY THAT *VV-A IS RESET. AND 
THAT 'ATA-A IS SET. 

E. ISSUE A DRIVE CLEAR COMMAND AND A READIN PRESET COMMAND THROUGH 
PORT A. 

F. VERIFY THAT THE DRIVE CANNOT BE ACCESSED THROUGH PORT B AND 
'NED* SETS WHEN ATENPTIN6 TO ACCESS THE DRIVE THROUGH 

PORT B. ATTEMPT TO SET PORT REQUEST BY WRITING 0*S 
INTO RMDS THROUGH PORT B. 

G. ISSUE A RELEASE COMMAND THROUGH PORT A. VERIFY THAT THE 
DRIVE REMAINS LOCKED ON PORT A. 


001266 

001106 

001110 

001102 

001176 

000010 

001234 


TEST7: 


010000 000012 
010000 000012 


MOVB 

MOV 

MOV 

MOVB 

MOV 

TYPE 

TYPE 

TYPE 


KYBCTL 

2S 

1 $ 

EXEC 

#-1 .KYBCTL 

fT£ST7.$LPADR 

#TEST7,$LPIRR 

#7.STSTNM 

fSTACK.SP 

fl.STIWS 


.•PERFORMING ONLY SINGLE TESTS ? 
'BR IF NOT 

;BR IF JUST ENTERED TEST 
.•RETURN ft GET NEXT TEST NUMBER 
.-SET SINGLE TEST INDICATOR 
.’SETUP SCOPE LOOP ADDRESS 
.SETUP ERROR LOOP ADDRESS 

.-MOVE #7 TEST NUMBER 
.•SETUP THE STACK POINTER 
;;D0 1 ITERATION 


PORTA.BMCS2(R0> ; SELECT PORT A 

PORTA.PTNBR ;MOV§ PORT ADDRESS TO LOCATION FOR TYPEOUT 


r%#n ivmm $ 

.CYCLED 

.SWTCHA 

.CYCLEU 

«MOL.RMDS(R0> 

IS 

«MOL.RMOS(RO> 


.•'CYCLE DOWN THE DRIVE* 

.SWITCH TO 'A* 

; 'CYCLE UP THE DRIVE' 

•IS *HOL* RESET T 

•m IFNO (DRIVE NOT CYCLED DOWN) 

*JS *MOL' SET ’ 

•BR IF NO (DRIVE NOT CYCLED UP) 


011020 005037 001244 


.•DRIVE IS CYCLED UP. CHECK STATUS THROUGH PORT A 

CLR CKERR .’CLEAR THE 'CHECK ERROR* INDICATOR 


4 


SEQ 0045 


CZRNIAO 

T7 


RM80 DUAL PORT PT2 MACRO VOA.OO 15- JAN-82 07:13:40 PAGE 9 
TOST ’PORT SELECT' SWITCH ON PORT A 


- 1 § 


011024 

011032 

011040 

011044 

011052 

011060 

011066 

011074 

011076 

011104 

011112 

011120 

011122 

011126 


016037 

012737 

060037 

012737 

013737 

042737 

023737 

001414 

013737 

042737 

053737 

104021 

005137 

000240 


000012 

000012 

0''1122 

110600 

001126 

066077 

001124 

001126 

111700 

001174 

001244 


001126 

001122 

001124 

001164 

001164 

001164 

001174 

001174 

001124 


64$: 


MOV 

MOV 

ADD 

MOV 

MOV 

BJC 

CMP 

BEQ 

MOV 

BIC 

BIS 

EMT 

COM 

NOP 


RMDS(RO),$BDOAT ;6ET CONTENTS Of RMDS 
«RMDS.Sb6aDR .‘FORM REGISTER ADDRESS OF ERROR MESSAGE 
R0.$a6ADR :ADD RH/RM BASE ADDRESS 

«ATA!MOL!DPR!DRr.$GDDAT ;WHAT REGISTER SHOULD BE 
S8DDAT-$TMP0 .-MOVE REGISTER CONTENTS TO 'STMPO* 

#*C11ltOO.$TMPO .-SAVE SPECIFIED BITS 

.‘COMPARE THE BITS 

.‘BR IF OK 
;COPr 'BAD DATA' 

.‘CLEAR THE MASKED BITS 
.•'OR' WITH GOOD DATA FOR TYPEOUT 


SGDDAT, STMPO 
64$ 

$BDDAT.$TMP4 

#111706,$TMP4 

$TMP4.$G0DAT 

21 

CKERR 


.‘SET THE REGISTER COMPARE ERROR INDICATOR 


.‘SET VOLUME VALID FOR PORT A 


011130 

012760 

000011 

000000 


MOV 

011136 

012760 

000021 

000000 


MOV 

011144 

012760 

010000 

000032 


MOV 





.‘CHECK 

THE Dl 





.‘SETS WHEN Tl 

011152 

113760 

001226 

000010 


M0V8 

011160 

013737 

001226 

001234 


MOV 

011166 

005037 

001244 



CLR 

011172 

016037 

000012 

001126 


MOV 

011200 

012737 

000012 

001122 


MOV 

011206 

060037 

001122 



ADD 

011212 

005037 

001124 



CLR 

011216 

013737 

001126 

001164 


MOV 

011224 

042737 

000077 

001164 


BIC 

011232 

023737 

001124 

001164 


CMP 

011240 

001414 




BEQ 

011242 

013737 

001126 

001174 


NOV 

011250 

042737 

177700 

001174 


BIC 

011256 

053737 

001174 

001124 


BIS 

011264 

104022 




EMT 

011266 

005137 

001244 



COM 

011272 

000240 



66$: 

NOP 

011274 

005037 

001244 



CLR 

011300 

016037 

000010 

001126 


MOV 

011306 

012737 

000010 

001122 


MOV 

011314 

060037 

001122 



ADD 

011320 

012737 

010000 

001124 


MOV 

011326 

013737 

001126 

001164 


MOV 

011334 

042737 

167777 

001164 


BIC 

011342 

023737 

001124 

001164 


CMP 

011350 

001414 




BEQ 

011352 

013737 

001126 

001174 


MOV 

011360 

042737 

010000 

001174 


BIC 

011366 

053737 

001174 

001124 


BIS 

011374 

104023 




EMT 

011376 

005137 

001244 



COM 

011402 

000240 



68$: 

NOP 

011404 

005060 

000012 



CLR 


flI.RMCSKRO) .'ISSUE A DRIVE CLEAR 

«21.RMCS1(R0} .‘ISSUE A READIN PRESET 

#FMT16.RMOF(RO) ;SET FMT16 


P0RT6.RMCS2(R0> :SELECT PORT 8 

PORTB.PTNBR ;M0V| PORT AOORESS TO LOCATION FOR TYPEOUT 
CKERR .‘CLEAR THE *CF«CK ERROR' INDICATOR 

RMD5(R0).$8DDAT :6ET CONTENTS OF RMDS 
fRMDS.SWADR ;FOftM REGISTER ADDRESS OF ERROR MESSAGE 
RO.SBDADR .‘ADD RH/RM BASE ADDRESS 

SG^DAT .‘WHAT REGISTER SHOULD BE 

$eDDAT.$TMPO .‘MOVE REGISTER CONTENTS TO 'STMPO' 

#*Cl77t00.$TMP0 ;SAVI SPECIFIED BITS 

.COMPARE THE BITS 

•M IF OK 

•COPY 'BAD DATA* 

.‘CLEAR THE MASKED BITS 
:*0R' WITH GOOD DATA FOR TYPEOUT 


SGDDAT.STMPO 

66 $ 

$eDDAT-$TMP4 

#177706.$TMP4 

|rMP4.$6MAT 

CKERR 


.‘SET THE REGISTER COMPARE ERROR INDICATOR 


CKERR .‘CLEAR THE 'CHECK ERROR* INDICATOR 

RMCS2(R0)-$BDDAT :GET CONTENTS OF RMCS2 _ 

fRMC52.$B6ADR .‘FO^ REGISTER ADDRESS OF ERROR MESSAGE 


RO.SBDADR 
iNED.SGDDAT 

ssddAt.stf* 
fCNED.STr 
SgDAT.STI 

$BD0AT.$TMP4 

#NED,SfMP4 

$TMP4.$GDDAT 
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RMDS(RO> 


;ADD RH/RM BASE ADDRESS 

.‘WHAT REGISTER SHOULD BE 

.‘MOVE REGISTER CONTENFS TO 'STMPO' 

.‘SAVE SPECIFIED BITS 
.‘COMPARE THE BITS 
;BR IF OK 
;COPY 'BAD DATA' 

.‘CLEAR THE MASKED BITS 

;'0R' WITH GOOD DATA FOR TYPEOUT 

.‘SET THE REGISTER COMPARE ERROR INDICATOR 

.‘TRY TO SET REQUEST BY WRITING THROUGi: 


SEQ 0046 
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;THE LOCKED OUT PORT (PORT ’0’) 


;VER]Fr THAT DRIVE STAYS LOCKED ON PORT A 


011410 

011416 

011424 

011432 

011440 

011446 

011454 

011460 

011466 

011474 

011500 

011504 

011512 

011520 

011526 

011530 

011536 

011544 

011552 

011554 

011560 


113760 

013737 

012760 

013737 

113760 

013737 

005037 

016037 

012737 

060037 

005037 

013737 

042737 

023737 

001414 

013737 

042737 

053737 

104024 

005137 

000240 


001224 

001224 

000013 

001224 

001226 

001226 

001244 

000012 

000012 

001122 

001124 

001126 

000077 

001124 

001126 

177700 

001174 

001244 


000010 

001234 

000012 

001236 

000010 

001234 

001126 

001122 


001164 

001164 

001164 

001174 

001174 

001124 


PORTA, RMCS2(R0) ;SELECT PORT A 

PORTA, PTN8R ;M0VE PORT ADDRESS TO LOCATION FOR TYPEOUT 
#13,RMDS<R0) .'ISSUE A RELEASE THROUGH PORT A 
PORTA, SE12PT :ADDRESS OF 'LOCKED ON' PORT 
PORTS, RMCS2(R0) ;SELECT PORT 6 

PORTS, PTN8R .'MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 
CKERR ; CLEAR THE 'CHECK ERROR’ INDICATOR 

RnDS(R0),S6DDAT :6ET CONTENTS OF RMDS 
#RnDS,teDAD(^ :FOlm register ADDRESS OF ERROR MESSAGE 
RO.SSDADR ;ADO RH/RM BASE ADDRESS 

IGDDAT ;WHAT REGISTER SHOULD BE 

$8DDAT,$TMP0 ;M0VE REGISTER CONTENTS TO 'STMPO' 

#*C1 77700, ITMPO .'SAVE SPECIFIED BITS 
SGDDAT.STMPO ; COMPARE THE BITS 

70S ;8R IF OK 

SaDDAT-STMP4 ;COPY 'BAD DATA' 

#1 77700, STMP4 .'CLEAR THE MASKED BITS 

STnP4,SGDDAT ,''0R' WITH GOOD DATA FOR TYPEOUT 
24 
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;SET THE REGISTER COMPARE ERROR INDICATOR 


,'IF ERROR OCCURRED, CHECK FOR LOOP ON TEST 


011562 

105737 

001103 



TSTB 

SERFL6 

DID AN ERROR OCCUR 

011566 

001412 




BEQ 

3S 

BR IF NOT 

011570 

032777 

001000 

167342 


BIT 

#SW09,aSHR 

SEE IF LOOP ON ERROR (Sl#l9 = 1) 

011576 

001406 




BEO 

3$ 

BR IF NOT 1 

011600 

105037 

001103 



CLR8 

SERFLG 

CLEAR THE ERROR FLAG 

011604 

005037 

001176 



CLR 

trims 

CLEAR THE MAX ITERATION COUNT 

011610 

000177 

167274 



JMP 

aSLPERR 

GO TO THE LOOP ADDRESS 

011614 

005737 

001266 


3S: 

TST 

KY8CTL 

IN SINGLE TEST MODE ? 

011620 

001460 




BEQ 

6S 

8R IF NOT 

011622 

032777 

040000 

167310 


BIT 

#suu,asuR 

LOOP ON TEST ? 

011630 

001054 




BNE 

6$ 

8R IF LOOPING j 

011632 

104401 

020317 



TYPE 

.CYCLED 

TYPE ‘CYCLE DOWN* ’ 

011636 

104401 

020106 



TYPE 

,swrcHN 

‘SWITCH TO A/8‘ 

011642 

104401 

020337 



TYPE 

-CYCLEU 

•CYCLE THE DRIVE UP* 

011646 

113760 

001224 

000010 


Move 

^TA,RMCS2(R0) 

/SELECT PORT A 

011654 

013737 

001224 

001234 


MOV 

PORTA.PTNBR /MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 

011662 

032760 

010000 

000012 

4S: 

BIT 

«M0L,RMDS(R0) 

IS ‘MOL* RESET ? 

011670 

001374 




BNE 

4S 

BR IF NO (DRIVE NOT CYCLED DOWN) 

011672 

032760 

010000 

0000)2 

5S: 

BIT 

«MOL,RR/'S(RO) 

IS SET ? 

011700 

001774 




BEO 

5S 

BR IF NO (DRIVE NOT CYCLED UP) 


011702 

011710 

011716 

011724 

011732 

011740 


012760 

012760 

012760 

113760 

013737 

012760 


000011 

000021 

000013 

001226 

001226 

000021 


000000 

000000 

000000 

000010 

001234 

000000 


;SET VOLUME VALID FOR BOTH PORTS 

MOV flKRMCSKRO) .‘ISSUE A DRIVE CLEAR THROUGH PORT A 

MOV #21,RMCS1(R0) ; ISSUE A READIN PRESET THROUGH PORT A 

MOV f13,RMCS1 (RO) ;RELEASE PORT A 

M0V8 P0Rr8,RMCS2(R0) /SELECT PORT B 

MOV PORTB.PTNBR /MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 
MOV #21,Ri>iCSl(R0) /ISSUE A READIN PRESET THROUGH PORT B 


SEQ 004 
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1 4 


440 


01 1 746 
011754 
011762 
011770 
011774 
011776 
012000 


012760 

010000 

000032 


MOV 

012760 

000013 

000000 


MOV 

012737 

072460 

001254 

6$: 

MOV 

005737 

001254 


7f: 

TST 

001375 




BNE 

000004 




SCOPE 

000400 




BR 


012002 

012002 

012006 

012010 

012012 

012016 

012024 

012032 

012040 

012040 

012046 

012052 

012060 

012066 


005737 

001406 

100002 

000137 

012737 

012737 

012737 

112737 

012706 

012737 

113760 

013737 


001266 


002610 

177777 

012040 

012040 

000010 

001100 

000001 

001226 

001226 


»FnT16.RMOF(RO) .'SET FMT16 

«13.RM{s1(R0> ;RELEASE PORT B 

f30600., WATCH .'SPINDLE MOTOR 'COOL DOWN* DELAY 

WATCH ;F1NSIHED ? 

7$ ;BR IF NOT 

.'LOOP ? 

TST10 ;;G0 TO NEXT TEST 


TEST 10 TEST 'PORT SELECT' SWITCH ON PORT B 

TEST THE OPERATION OF THE 'PORT SELECT' SWITCH (DRIVE CYCLED DOWN). 
A. CYCLE THE DRIVE DOWN. 


B. 

C. 

D. 

E. 

F. 

6 . 

H. 

I. 


SWITCH TO PORT B POSITION. VERIFY THAT THE DRIVE IS IN 
NEUTRAL AND THAT THE STATUS BITS IN RMDS. AS READ THROUGH BOTH 
PORTS. ARE CORRECT. 

SWITCH THE 'PORT SELECT* SWITCH TO B; CYCLE THE DRIVE Ur. 

WHEN THE DRIVE CYCLES UP. VERIFY THAT 'VV-B IS RESET. AND 
THAT 'ATA-e IS SET. 

ISSUE A DRIVE CLEAR COMMAND AND A READIN PRESET COMMAND THROUGH 
PORT B. 

VERIFY THAT THE DRIVE CANNOT BE ACCESSED THROUGH PORT A AND 
'NED' SETS WHEN ATEMPTING TO ACCESS THE DRIVE THROUGH 
PORT A. ATTEMPT TO SET PORT REOUEST BY WRITING O'S 
INTO RMDS THROUGH PORT A. 


ISSUE A RELEASE COMMAND THROUGH PORT B. 
DRIVE REMAINS LOCKED ON PORT B. 


VERIFY THAT THE 


CYCLE THE DRIVE DOWN. CHANGE THE 'PORT SELECT* SWITCH TO 
A/8; CYCLE THE DRIVE UP. 

VERIFY THAT BOTH PORTS CAN ACCESS THE DRIVE. THAT BOTH ATTENTION 
BITS ARE SET. AND THAT BOTH 'VV BITS ARE RESET. 


TST10: 

TST 

BEQ 

BPL 

JMP 

001266 1$: MOV 

001106 2$: MOV 

001110 NOV 

TEST10: 

001102 MOVB 

FIOV 

001176 NOV 


KY8CTL 

2t 

1 $ 

EXEC 

f-I.KYBCTL 

fTESTIO.SLPADR 

fTESTIO.SLPERR 

flO.STSTNN 
fSTACK.SP 
#1. STINES 


.'PERFORMING ONLY SINGLE TESTS ? 
*BR IF MT 

;6R IF JUST ENTERED TEST 
.'RETURN I GET NEXT TEST NUMBER 
.'SET SINGLE TEST INDICATOR 
.'SETUP SCOPE LOOP ADDRESS 
.'SETUP ERROR LOOP ADDRESS 

.'MOVE #10 TEST NUMBER 
.'SETUP THE STACK POINTER 
.'.'DO 1 ITERATION 


000010 

001234 


MOVB 

NOV 


PORTB'PTNBR^**;NOvl^pbRT\oORESS TO LOCATION FOR TYPEOUT 



SEQ 0048 
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012074 104401 020317 TYPE , CYCLED 
012100 104401 020211 TYPE .SHTCHB 
012104 104401 020337 TYPE ,CYCLEU 


.2i ^ 


012110 

012116 

012120 

012126 


012130 

012134 

012142 

012150 

012154 

012162 

012170 

012176 

012204 

012206 

012214 

012222 

012230 

012232 

012236 


032760 

001374 

032760 

001774 


005037 

016037 

012737 

060037 

012737 

013737 

042737 

023737 

001414 

013737 

042737 

053737 

104021 

005137 

000240 


010000 000012 
010000 000012 


001244 

000012 

000012 

001122 

110600 

001126 

066077 

001124 

001126 

111700 

001174 

001244 


001126 

001122 

001124 

001164 

001164 

001164 

001174 

001174 

001124 


012240 012760 000011 000000 
012246 012760 000021 000000 
012254 012760 010000 000032 


012262 

012270 

012276 

012302 

012310 

012316 

012322 

012326 

012334 

012342 

012350 

012352 

012360 

012366 

012374 

012376 

012402 

012404 

012410 

012416 

012424 


113760 

013737 

005037 

016037 

012737 

060037 

005037 

013737 

042737 

023737 

001414 

013737 

042737 

053737 

104022 

005137 

000240 

005037 

016037 

012737 

060037 


001224 

001224 

001244 

000012 

000012 

001122 

001124 

001126 

000077 

001124 

001126 

177700 

001174 

001244 

001244 

000010 

000010 

001122 


TYPE , CYCLED ; ’CYCLE DOWN THE DRIVE’ 

TYPE .SHTCHB .'SWITCH TO ’fl’ 

TYPE .CYCLEU .’CYCLE UP THE DRIVE* 

1$: BIT #M0L.RNDS(R0) ;JS ’MOL' RESET ? 

BNE IS ;BR IF NO (DRIVE NOT CYCLED DOWN) 

2$: BIT 4WOL.RHDS(RO) ;IS ’MOL’ SET ? 

BED 2$ ;BR IF NO (DRIVE NOT CYCLED UP) 

.'DRIVE IS CYCLED UP. CHECK STATUS THROUGH PORT B 

CLR CKERR .'CLEAR THE ’CHECK ERROR’ INDICATOR 

MOV RMDS(RO).SBDDAT ;6ET CONTENTS OF RMDS 

MOV fRMDS.SBDADR .'FOW REGISTER ADDRESS OF ERROR MESSAGE 

ADD RO.SBDADR .'ADD RH/RM BASE ADDRESS 

MOV #ATA!MOLIDPR!DRY.$GDDAT ;HHAT REGISTER SHOULD BE 

MOV SBDDAT.STMPO .MOVE REGISTER CONTENTS TO ’STMPO’ 

BIC #‘C111700.STMP0 .'SAVE SPECIFIED BITS 

CMP S6DDAT. STMPO .'COMPARE THE BITS 

BEO 64S .'BR IF OK 

MOV S8DDAT-STMP4 .'COPY ’BAD DATA’ 

BIC #111700.STMP4 .'CLEAR THE MASKED BITS 

BIS STW>4.SGDDAT ;'0R' WITH GOOD DATA FOR TYPEOUT 


S6DDAT. STMPO 
64S 

S8D0AT.STMP4 

#111700.STMP4 

STMP4.SGD0AT 
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.'SET THE REGISTER COMPARE ERROR INDICATOR 


.'SET VOLUME VALID FOR PORT B 


000010 

001234 

001126 

001122 


001164 

001164 

001164 

001174 

001174 

001124 


001126 

001122 


MOV #11.RMCS1(R0) .'ISSUE A DRIVE CLEAR 

MOV #21.RMCS1(R0> .'ISSUE A READIN PRESET 

MOV #FMT16.RM0F(R0) .SET FMT16 

.'CHECK THE DRIVE STATUS THROUGH PORT A; VERIFY THAT ’NED’ 

.'SETS WHEN THE DRIVE IS ACCESSED THROUGH PORT A. 

MOVB PORTA.RMCS2{RO) ;SELECT PORT A 

MOV PORTA.PTNBR ;MOVl PORT ADDRESS TO LOCATION FOR TYPEOUT 

CLR CKERR .'CLEAR THE ’CHECK ERROR’ INDICATOR 

MOV RMDSIROI.SBDDAT .'GET CONTENTS OF RMOS 

MOV fRMDS.SBDADR .FORM REGISTER ADDRESS OF ERROR MESSAGE 

ADO RO.SBDADR .'ADO RH/RM BASE ADDRESS 

CLR SG(DAT ;HHAT REGISTER SHOULD BE 

MOV SBDDAT. STMPO .'MOVE REGISTER CONTENTS TO ’STMPO’ 

BIC f'‘C177t00,STMP0 ;SAVE SPECIFIED BITS 

CFV> SGODAT.STMTO .'COMPARE THE BITS 

BEO 66S .'BR IF OK 

MOV SBDDAT.STMP4 .'COPY ’BAD DATA’ 

BIC f177706,STMP4 .'CLEAR THE MASKED BITS 

BIS STW>4.SGD0AT ;’0R’ WITH GOOD DATA FOR TYPEOUT 

22 
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.'SET THE REGISTER COMPARE ERROR INDICATOR 


CKERR .'CLEAR THE ’CHECK ERROR’ INDICATOR 

RMCS2(R0).SBDDAT ;GET CONTENTS OF RMCS2 _ 

fRMCS2.SBDADR .'FOm REGISTER ADDRESS OF ERROR MESSAGE 
RO.SBDADR .'ADD RH/RM BASE ADDRESS 


SEO 0049 
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012430 

012436 

01^44 

012452 

012460 

012462 

012470 

012476 

012504 

012506 

012512 

012514 


012520 
012526 
012534 
012542 
012550 
012556 
012564 
012570 
Cl 2576 
012604 
012610 
012614 
012622 
012630 
012636 
012640 
012646 
012654 
012662 
012664 
012670 


012672 

012676 

012700 

012706 

012710 

012714 

012720 

012724 

012732 

012734 

012740 

012744 

012750 

012756 

012764 

012772 

012774 


012737 010000 001124 


013737 

042737 

023737 

001414 

013737 

042737 

053737 

104023 

005137 

000240 

005060 


113760 

013737 

012760 

013737 

113760 

013737 

005037 

016037 

012737 

060037 

005037 

013737 

042737 

023737 

00U14 

013737 

042737 

053737 

104024 

005137 

000240 


105737 

001412 

032777 

001406 

105037 

005037 

000177 

032777 

001054 

104401 

104401 

104401 

113760 

013737 

032760 

001374 

032760 


001126 

167777 

001124 

001126 

010000 

001174 

001244 

000012 


001226 

001226 

000013 

001226 

001224 

001224 

001244 

000012 

000012 

001122 

001124 

001126 

000077 

001124 

001126 

177700 

001174 

001244 


001164 

001164 

001164 

001174 

001174 

001124 


000010 

001234 

000012 

001236 

000010 

001234 

001126 

001122 


001164 

001164 

001164 

001174 

001174 

001124 


001103 

001000 166232 


001103 

001176 

166164 

040000 

020317 

020106 

020337 

001226 

001226 

010000 


«NED,$GDDAT 

S8DDAT,STnP0 

flf*CNEO,$THPO 

SGDDAT.STHPO 

68S 

$8DDAT,STNP4 

#NE0,STMP4 

STMP4,S6DDAT 
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RMDS(RO) 


;WHAT REGISTER SHOULD BE 

.-MOVE REGISTER CONTENTS TO ’STHPO* 

.'SAVE SPECIFIED BITS 
.COMPARE THE BITS 
:BR IF OK 
;COPV 'BAD DATA* 

.•CLEAR THE MASKED BITS 

;'0R* WITH GOOD DATA FOR TVPEOUT 

;SET THE REGISTER COMPARE ERROR INDICATOR 

;TRy TO SET REQUEST BY WRITING THROUGH 
.-THE LOCKED OUT PORT (PORT 'A*) 


.•VERIFY THAT DRIVE STAYS LOCKED ON PORT B 


PORrB,RMCS2(R0> ;SELECT PORT B 

PORTB.PTNBR :MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 
fl3.RM0S(R0) .-ISSUE A RELEASE THROUGH PORT B 
P0 RTB.se I ZPT .-ADDRESS OF 'LOCKED ON* PORT 

PORTA. RMCS2(R0> .-SELECT PORT A 

PORTA.PTNBR .-move PORT ADDRESS TO LOCATION FOR TYPEOUT 
CKERR ; CLEAR THE ’CHECK ERROR* INDICATOR 

RMDS<R0).$8DDAT ;GET CONTENTS OF RMOS _ 

fRMDS.SBOADR .-FORM REGISTER ADDRESS OF ERROR MESSAGE 
R0.S60ADR .-ADD RH/RM BASE ADDRESS 

SGDDAT .-WHAT REGISTER SHOULD BE 

IBDDAT.fTMPO .-MOVE REGISTER CONTENTS TO *$TMPO' 

#*C177^00,$TMP0 .-SAVE SPECIFIED BITS 
SGDDAT.STMPO .-COMPARE THE BITS 

70$ .-BR IF OK 

$6DDAT.$TMP4 ;COPY *BAD DATA* 

#177706.$THP4 .-clear THE MASKED BITS 

$TMP4.$GD0AT ;*0R* WITH GOOD DATA FOR TVPEOUT 
24 
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.-SET THE REGISTER COMPARE ERROR INDICATOR 


;IF ERROR OCCURRED. CHECK FOR LOOP ON TEST 


166206 


000010 

001234 

000012 


010000 000012 


TSTB 

BEQ 

BIT 

BEQ 

CLR8 

CLR 

JMP 

BIT 

BNE 

TYPE 

TYPE 

TYPE 

M0V8 

MOV 

BIT 

BNE 

BIT 


SERFLG .‘DID AN ERROR OCCUR 

3$ ;BR IF NOT ^ _ 

fSWOQ.aSWR .-SEE IF LOOP ON ERROR (SHR9 1) 

3$ -BR IF NOT 

SERFLG ; CLEAR THE ERROR FLAG 

STIMES : CLEAR THE MAX ITERATION COUNT 

aSLPERR :G0 TO THE LOOP ADDRESS 

fSWH.aSWR .-LOOP ON TEST ? 

6S :8R IF LOOPING 

.CYCLED .-TYPE 'CYCLE DO^* 

.SWTCHN .-'SWITCH TO A/B* 

'CYCLEU .-'CYCLE THE DRIVE UP* 

^ORT8.RMCS2(R0> ;SELECT PORT B , 

PORTB.PTNBR .-MOV§ PORT ADDRESS TO LOCATION FOR TVPEOUT 
#MOL.RMDS(RO) .IS *MOL' RESET ? ^ ^ 

4$ ;BR IF NO (DRIVE NOT CYCLED DOWN) 

#MOL.RMDS{RO) .‘IS 'MOL* SET ? 


SEQ 0050 
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013002 001774 


BED 5$ ; 

;SET VOLUME VALID FOR BOTH PORTS 


;BR IF NO (DRIVE NOT CVCLED UP) 


013004 

013012 

013020 

013026 

013034 

013042 

013050 

013056 

013064 

013072 

013076 

013100 

013102 


012760 

012760 

012760 

113760 

013737 

012760 

012760 

012760 

012737 

005737 

001375 

000004 

000137 


000011 

000021 

000013 

001224 

001224 

000021 

010000 

000013 

072460 

001254 


013110 


000010 

001234 

000000 

000032 

000000 

001254 


MOV 

MOV 

MOV 

MOVB 

MOV 

MOV 

MOV 

MOV 

MOV 

TST 

BNE 

SCOPE 

JMP 


«11,RMCS1(R0) ; ISSUE A DRIVE CLEAR THROUGH PORT B 

#2nRMCS1(R0) .‘ISSUE A READIN PRESET THROUGH PORT B 
«13.RMCS1(R0) .‘RELEASE PORT B 
PORTA. RMCS2(R0) ;SELECT PORT A 

PORTA. PTNBR .‘MOVE PORT ADDRESS TO LOCATION FOR TVPEOUT 
«21.RMCS1(R0) .‘ISSUE A READIN PRESET THROUGH PORT A 
«FMri6.RMOF(RO) .‘SET FMT16 


«13.RMCS1(R0) 
«30600.. WATCH 
WATCH 

7$ 


.‘RELEASE PORT A 

: SPINDLE MOTOR 'COOL DOWN' DELAY 
.‘FINISHED ? 

:BR IF NOT 
.‘LOOP ? 

;G0 TO THE END OF PASS ROUTINE 


013106 000004 


PUT NEWTEST HERE 


TST11: SCOPE 


CZRNIAO RHSO DUAL PORT 

PT2 MACRO V04.00 

K 4 

15- JAN-82 07:13:40 PAGE 10 


SEG 0051 

END OF PASS ROUTINE 







1 




.S8TTL 

END OF 

PASS ROUTINE 







; ^INCREMENT THE 

PASS NUMBER ($PASS) 






.-•INDICATE END- 

OF-PROGRAM AFTER 

1 PASSES THRU THE PROGRAM 






.-•TYPE 

■END PASS fXXXXX TOTAL NUMBER OF ERRORS SINCE LAST REPORT YYYYY“ 






.'•WHERE 

XXXXX AND YYYYY ARE DECIMAL NUMBERS 






.-•IF THERES A MONITOR GO TO IT 







.-•IF THERE ISN' 

T JUMP TO TSTIAA 



013110 

013110 

005737 

001266 


SEOP: 

TST 

KYBCTL 

.-ENTERED TEST VIA KEYBOARD COMMAND ? 


0131U 

001402 




BEQ 

.♦6 

.-BR IF NOT 


013116 

000137 

002610 



JMP 

EXEC 

.'RETURN TO KEYBOARD CONTROL 


013122 

005037 

001102 



CLR 

STSTNM 

.-.-ZERO THE TEST NUMBER 


013126 

005037 

001176 



CLR 

STIMES 

.-.'ZERO THE NUMBER OF ITERATIONS 


013132 

005237 

001100 



INC 

$PASS 

.-.-INCREMENT THE PASS NUMBER 


013136 

042737 

100000 

001100 


BIC 

#100000. SPASS 

.-.-DON'T ALLOW A NEG. NUMBER 


013144 

005327 




DEC 

<PC) + 

.-.-LOOP? 


013146 

000001 



SEOPCT: 

.WORD 

1 



013150 

003066 




B6T 

SDOAGN 

.'.'YES 

1 

013152 

012737 




MOV 

(PC)+.a(PC)^ 

.-.-RESTORE COUNTER 


013154 

000001 



SENDCT: 

.WORD 

1 



013156 

013146 




$EOPCT 




013160 

104401 

013166 



TYPE 

.65$ 

.-.-TYPE ASCI 4 ^rpim 


013164 

000407 




BR 

64$ 

.-.-GET OVER Thf ASCIZ 






;;65$: 

.ASCI2 

<12><15>/END PASS #/ 


013204 




64$: 





013204 

013210 

013746 

001100 



MOV 

$PASS.-(SP) 

.-.-SAVE SPASS FOR TYPEOUT 
.-.-TYPE PASS NUMBER 


104405 




TYPDS 


;;60 TYPE-DECIMAL ASCII WITH SIGN 


013212 

005737 

001112 



TST 

$ERTTL 

::SEE IF ANY ERRORS THIS PASS 


013216 

001431 




BEG 

$6T42P 

.-;BR IF NO ERRORS TO REPORT 


013220 

104401 

013226 



TYPE 

.67$ 

.-.-TYPE ASCIZ STRING 


013224 

000421 




BR 

66$ 

.-.-GET OVER THE ASCIZ 


013270 




;;67S; 

.ASCI2 

/ TOTAL ERRORS SINCE LAST REPORT / 


013746 

001112 


66$: 

MOV 

$ERTTL.-(SP) 

.-.-SAVE SERTTL FOR TYPEOUT 
.-.‘TOTAL NUMBER OF ERRORS 


013270 

013274 

104405 




TYPDS 


.-.-60 TYPE— DECIMAL ASCII WITH SIGN 


013276 

005037 

001112 



CLR 

$ERTTL 

;; CLEAR ERROR TOTAL 


013302 

104401 

001207 


$GT42P: 

TYPE 

i$CRLF 

.-.-TYPE CARRIAGE RETURN. LINE FEED 


013306 

013700 

000042 


$GEr42: 

MOV 

4r42.R0 

;;6ET MONITOR ADDRESS 


013312 

001405 




BEG 

SDOAGN 

.-.'BRANCH IF NO MONITOR 


013314 

000005 




RESET 


.-.’CLEAR THE WORLD 


013316 

004710 



$ENDAO: 

JSR 

PC.CRO) 

.-.-GO TO MONITOR 

1 

013320 

000240 




NOP 


.-.’SAVE ROOM 


013322 

000240 




NOP 


;.-EOR 


013324 

013326 

000240 



$D0A6N: 

NOP 


.-.'ACTII 


013326 

000137 




JMP 

a(PC)* 

.-.-RETURN 


013330 

003074 



$RTNAO: 

.WORD 

TSTIAA 



013332 

377 

377 

000 

$ENULL: 

.BYTE 

.EVEN 

-1.-1.0 

.-.-NULL CHARACTER STRING 

_i 
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.SBTTL CLOCK SUBROUTINES 


SEQ 0052 


.'ROUTINE TO CHECK FOR KW11-L OR KW11-P CLOCKS 


5 013336 

6 013344 

7 013350 

8 013354 

9 013360 

10 013364 

11 013370 

12 013376 

13 013404 

14 013406 

15 013412 

16 013420 

17 013424 

18 013430 

19 013434 

20 013440 

21 013446 

22 013450 

23 013454 

24 013460 

25 013466 


012737 

005037 

005777 

013701 

012721 

012711 

012777 

012777 

000425 

062706 

012737 

005777 

013701 

012721 

012711 

012777 

000404 

062706 

062716 

012737 

000207 


013406 

000006 

165636 

001216 

013470 

000300 

177777 

000135 

000004 

013450 

165574 

001222 

013470 

000300 

000100 

000004 

000002 

000006 


000004 CKCLK: 


165616 

165606 


000004 


165552 


000004 


CKCLK: MOV 
CLR 
TST 
MOV 
MOV 
MOV 
MOV 
MOV 
BR 

CKCLK1: ADD 
MOV 
TST 
MOV 
MOV 
MOV 
MOV 
BR 

CKCLK2: ADD 
ADD 

CKCLK3: MOV 


#CKCLK1.a#ERRVEC 

a«ERRVEC4^2 

aSLKCSR 

SLPVEC.RI 

#CL0CK.(R1}4^ 

«300.(R1} 

«-1.a$LKCSB 

#135,a$LKCSR 

CKCLK3 

#4.SP 

«CKCLK2,aPERRVEC 

aSLKS 

SLLVEC.RI 

#CL0CK,(R1)^ 

#300. (RD 

#100.a$LKS 

CKCLK3 

#4.SP 

#2.(SP} 

#6.a#ERRVEC 

PC 


.'SET UP VECTOR FOR CLOCK CHECK 
;NEW PSW 

CHECK FOR KU11-P 
KW11-P VECTOR ADDRESS 
SET UP KUll-P VECTOR 
PSW - PRI 6 

LOAD COUNTER BUFFER WITH I'S 
SET CLOCK - CNT UP, 16MS, CONT INT 

RESTORE THE STACK POINTER 
; CHANGE ERROR VECTOR TO CHECK FOR KW11-L 
LOOK FOR KU11-L 
KU11-L VECTOR ADDRESS 
SET UP KU11-L VECTOR 
PSW • PRI 6 
SET KU11>L INTERRUPT 

RESTORE THE STACK POINTER 
INCREMENT RETURN, NO CLOCK 
RESTORE THE ERROR VECTOR 


.'ROUTINE TO COUNT CLOCK TICKS 


28 

29 013470 

062737 

000021 

001252 

CLOCK: 

ADD 

#17.. TIME 

30 013476 

005737 

001254 



TST 

HATCH 

31 013502 

001406 




BEQ 

IS 

32 013504 

162737 

000021 

001254 


SUB 

#17. .HATCH 

33 013512 

100002 




BPL 

1$ 

34 013514 

005037 

001254 



CLR 

WATCH 

35 013520 

000002 



1$: 

RTI 



;ADD 17 MS TO ELAPSED TIME COUNTER 
;IS WATCH ALREADY ZERO ? 

;SR IF IT IS 

; SUBTRACT 17 MS FROM WATCH DOG COUNTER 

;8R IF NOT MINUS 

.'CLEAR WATCH DOG COUNTER 

.'RETURN 


.'ROUTINE TO CALCULATE ^ 25X TIME TwLERANCE VALUES 


39 013522 

005746 


TOLER: TST 

-(SP) 

MAKE ROOM ON THE STACK 

40 013524 

016616 

000002 

MOV 

2(SP),(SP) 

SAVE STACK 

41 013530 

013546 


MOV 

8(R5)+.-(SP) 

GET TIME VALUE 

42 013532 

011666 

000004 

MOV 

(SP).4(SP) 

MOVE TIME VALUE 

43 013536 

006216 


ASR 

(SP) 

DIVIDE BY 2 

44 013540 

006216 


ASR 

(SP) . 

DIVIDE BY 2 AGAIN (FOR A TOTAL OF 4) 

45 013542 

062666 

000002 

ADD 

(SP)+.2(SP> 

CALCULATE UPPER LIMIT FOR TIMEOUT 

46 013546 

000205 


RTS 

R5 

RETURN WITH TOLERANCES ON THE STACK 
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1 .SBTTL SCOPE HANDLER ROUTINE 


bEQ 0053 


013550 

013550 

013552 

013556 

013564 

013566 

013572 


104407 

004737 

032777 

001402 

000137 


013572 000416 


013574 

013600 

013606 

013612 

013616 

013620 

013622 

013626 

013630 

013630 

013634 

013636 

013644 

013646 

013652 

013660 

013666 

013670 

013676 

013702 

013704 

013710 

013716 

013720 

013726 

013730 

013736 

013742 

013746 

013754 

013760 

013766 

013770 

013774 


013746 

012737 

005737 

012637 

000517 

022626 

012637 

000517 

105737 

001465 

022737 

001455 

013746 

012737 

013737 

000406 

012737 

012716 

000002 

012637 

022737 

001430 

032737 

001424 

042737 

013746 

017646 

012737 

011677 

042777 

104177 

012676 

012637 


014104 

040000 

014066 


000004 

013620 

177060 

000004 


000004 


001103 


165354 


000004 


177777 014454 


000004 

013670 

177766 

177777 

013704 

000004 


000004 

014454 

014454 


177777 014454 
000001 014454 


000001 

001140 

000000 

000176 

165160 

001000 

000000 

001140 


177766 


001140 

165152 


*THJS ROUTINE CONTROLS THE LOOPING OF SUBTESTS. IT WILL INCREMENT 
*AND LOAD THE TEST NUMBER (STSTNM1 INTO THE DISPLAY REG. (D1SPLAY<7;0» 
*AND LOAD THE ERROR FLAG ($ERFLG) INTO DJSPLAY<15:08> 

*THE SWITCH OPTIONS PROVIDED BY THIS ROUTINE ARE: 

•SWUsl LOOP ON TEST 

*SH11>1 INHIBIT ITERATIONS 

•CALL 

• SCOPE ;;SCOPEsIOT 


SSCOPE: 

CKSWR 

JSR 

1$: BIT 

BEQ 
JMP 
9$: 

:m##START OF 
iXTSTR: BR 

MOV 

MOV 

TST 

MOV 

BR 

5$: CMP 

MOV 
BR 

6$:;Af####EN0 OF 
2$: T5TB 

BEQ 
CMP 
BEQ 
MOV 
MOV 
MOV 
BR 

2000$: MOV 
MOV 
RTI 

2001$: MOV 

2002$: CMP 
BEQ 


PC. STOP 

«81T14.aSUR 

9$ 

$OVER 

CODE FOR THE XOR 

6 $ 

a«ERRVEC.-(SP) 

#5$.a#ERRVEC 

m^7m 

(SPI-^.afERRVEC 

$SVLAD 

<SP)+,(SP)+ 

(SPU.atERRVEC 

$OVER 

CODE FOR TH: XOR 

$ERFLG 

3$ 

#-1.CPSAVE 

2005$ 

ERRVEC.-(SP) 
#2000$.ERRVEC 
1 77766, CPSAVE 
2001 $ 

#-1 .CPSAVE 
# 2061 $. (SP) 

(SP)«.ERRVEC 

f-1 .CPSAVE 

200 %% 

«B1 TOO. CPSAVE 
2003$ 

#81 TOO. 177766 

SHR.-(SP) 

a(SP),«(SP) 

#176.SUR 

(SP).aSUR 

#81T69,aSUR 

(SP)+,a(SP) 

(SP)+,SWR 


;;TEST FOR CHANGE IN SOFT-SWR 

;;LOOP ON PRESENT TEST? 

;:N0 IF SUUsO 

;;JUMP OVER SCOPE ROUTINE 

TESTER##### 

::1F RUNNING ON THE 'W TESTER CHANGE 
.'.'THIS INSTRUCTION TO A 'WM*" <N0P=240) 

;;SAVE THE CONTENTS OF THE ERROR VECTOR 
;;SET FOR TIMEOUT 
;;TIME OUT ON XOR? 

.-.'RESTORE THE ERROR VECTOR 
:;60 TO THE NEXT TEST 
.-.‘CLEAR THE STACK AFTER A TIME OUT 
-RESTORE THE ERROR VECTOR 
;.-LOOP ON THE PRESENT TEST 
1 TESTER##### 

;.-HAS AN ERROR OCCURRED? 

- -BR IF NO 

‘•SEE IF TIMEOUT WAS PREVIOUSLY RECORDED 

.-.-KICK AROUND ROUTINE IF SO 

.‘.‘SAVE C0NTEN1S OF ERROR VECTOR 

.-.-SETUP 'TRAP' RETURN ADDRESS 

.-.-MOVE CPU ERROR REGISTER TO CPSAVE FOR TEST 

.-.-SET CPU ERROR REGISTER TIMEOUT INDICATOR 
.-.-SETUP RETURN ADDRESS 

.-.‘RESTORE CONTENTS OF ERROR VECTOR 

.-.-SEE IF CPSAVE HAS CPU ERR REG TIMEOUT INDICATION 
.-.-BRANCH IF SO 

..-SEE IF THE POWER MONITOR BIT IS ON 

.-.-BRANCH TO CONTINUE ROUTINE IF CLEAR 

.-.-CLEAR THE BIT FOUND TO BE SET 

.-.‘SAVE SWR ADDRESS 

.-.-SAVE SWR VALUE 

;:6ET SOFTWARE SWR ADDRESS 

.-.-GET CURRENT SWR VALUE 

.-, -DON'T ALLOW LOOP ON ERROR ON THIS ERROR 

..-CALL SPECIAL POWER FAIL BIT ERROR CALL 

.-.-RESTORE SWR TO ORIGINAL VALUE 

.‘.‘RESTORE SWR ADDRESS 
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C 5 


SEO 0054 


014000 
014000 
014004 
014010 
014016 
014020 
014024 
014026 
01 4032 
014040 
014042 
014050 
014056 
014062 
014066 
014074 
014100 
014102 

2 

3 

4 

5 014104 
014104 
014110 
014114 
014116 

6 

7 

8 

9 014116 
014122 
014126 
014130 
10 014130 


105037 

005037 

032777 

001011 

005737 

001406 

005237 

023737 

002012 

012737 

013737 

105237 

011637 

013777 

013716 

000002 

000005 


012746 

012746 

000002 


001103 

001176 

004000 

001100 

001104 

001176 

000001 

0141C2 

001102 

001106 

001102 

001106 


2003$: 

4$: 


165122 3$: 


001104 

001104 

001176 


165046 


1 $: 


CLR8 

$ERFLG 

CLR 

$TIMES 

BIT 

#BIT11.aSUR 

BNE 

1$ 

TST 

$PASS 

BEQ 

1$ 

INC 

$ICNT 

CMP 

$TIMES.$ICNT 

6GE 

$OVER 

MOV 

»1.$ICNT 

MOV 

SMXCNT. $TIMES 

INCB 

STSTNM 

MOV 

(SPI.SLPADR 

MOV 

STSTNM. aDI SPLAY 

MOV 

RTI 

SLPADR.(SP) 


SMXCNT: 5. 


;ZERO THE ERROR FLAG 

.'CLEAR THE NUMBER OF ITERATIONS TO HAKE 

.'INHIBIT ITERATIONS? 

;BR IF YES 

.'IF FIRST PASS OF PROGRAM 
; INHIBIT ITERATIONS 
.'INCREMENT ITERATION COUNT 
.'CHECK THE NUMBER OF ITERATIONS MADE 
.'BR IF MORE ITERATION REQUIRED 
.'REINITIALIZE THE ITERATION COUNTER 
;SET NUMBER OF ITERATIONS TO DO 
.'COUNT TEST NUMBERS 
.'SAVE SCOPE LOOP ADDRESS 
.'DISPLAY TEST NUMBER 
.'FUDGE RETURN ADDRESS 
.'FIXES PS 

.'MAX. NUMBER OF ITERATIONS 


.'DROP PRIORITY TO ALLOW CONSOLE INTERRUPT 


000140 

014116 


STOP: 


64$: 


MOV #PR3.-(SP) .'.'PUT NEW PS ON STACK 
MOV #64$.-(SP) .'.'PUT NEW PC ON STACK 
RTI .'.'POP NEW PC AND PS 




; RAISE PRIORITY 

TO INHIBIT 

CONSOLE INTERRUPT 

012746 

000240 

MOV 

#PR5.-<SP) 

;;PUT NEW PS ON STACK 

012746 

014130 

MOV 

#65$.-(SP> 

.'.'PUT NEW PC ON STACK 

000002 


RTI 


;;POP NEW PC AND PS 



65$: 



000207 


RTS 

PC 

; RETURN 



S60 0055 
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1 .SBTTL ERROR HANDLER ROUTINE 


•THIS ROUTINE WILL INCREMENT THE ERROR FLAG AND THE ERROR COUNT, 
•SAVE THE ERROR ITEM NUMBER AND THE ADDRESS OF THE ERROR CALL 
•AND GO TO SERRTYP ON ERROR 

•THE SWITCH OPTIONS PROVIDED BY THIS ROUiINE ARE: 

•SWIS^I HALT ON ERROR 

•SW13-1 INHIBIT ERROR TYPEOUTS 

•SWIOsI BELL ON ERROR 

•CALL 

• ERROR N ;:ERROR=EMT AND N=ERROR ITEM NUMBER 


014132 

105037 

014456 


SERROR: 

CLRB 

IBSAVE 

• 

; CLEAR THE ITEM BYTE SAVE LOCATION 

014136 

104407 




CKSUR 


# 

.■TEST FOR CHANGE IN SOFT-SUR 

014140 

113737 

001102 

001242 


MOVB 

STSTNM.TSTNUM 



014146 

105237 

001103 


7$: 

INCB 

SERF LG 

• 

SET THE ERROR FLAG 

014152 

001775 




BEQ 

7$ 

• 

# 

DON'T LET THE FLAG 60 TO ZERO 

014154 

013777 

001102 

164760 


MOV 

$TSTNM,aDI SPLAY 

« 

• 

DISPLAY TEST NUMBER AND ERROR FLAG 

014162 

032777 

002000 

164750 


BIT 

«BIT10,aSUR 

• 

# 

BELL ON ERROR? 

014170 

001402 




BEO 

1$ 

• 

0 

NO - SKIP 

014172 

104401 

001202 



TYPE 

,$8ELL 

• 

# 

RING BELL 

014176 

005237 

001112 


IS: 

INC 

SERTTL 

• 

COUNT THE NUMBER OF ERRORS 

014202 

011637 

001116 



MOV 

(SP),$ERRPC 

• 

0 

GET ADDRESS OF ERROR INSTRUCTION 

014206 

162737 

000002 

001116 


SUB 

#2.$ERRPC 



014214 

117737 

164676 

001114 


MOVB 

aSERRPC^SITEMB 

» 

0 

STRIP AND SAVE THE ERROR ITEM CODE 

014222 

032777 

001000 

164710 


BIT 

«BlT09,aSWR 

• 

0 

SEE IF LOOP ON ERROR IS SET 

014230 

001060 




BNE 

1004$ 

• 

0 

BRANCH AROUND ROUTINE IF SO 

014232 

122737 

000177 

001114 


CMPB 

#177.$ITEMB 

• 

0 

SEE IF THIS IS THE POWER FAIL CALL 

014240 

001454 




BEO 

1004i 

• 

0 

BRANCH AROUND ROUTINE IF IT IS 

014242 

105737 

014456 



TSTB 

IBSAVE 

0 

^£E IF THIS IS THE 2ND ERROR CALL IN THIS ROUTINE 

014246 

001047 




BNE 

1003$ 

• 

• 

BRANCH IF SO 

014250 

022737 

177777 

014454 


CMP 

f-1,CPSAVE 

• 

0 

SEE IF CPSAVE HAS CPU ERR REG TIMEOliT INDICATION 

014256 

001445 




BEQ 

lOOU 

• 

0 

BRANCH IF SO 

014260 

013746 

000004 



MOV 

ERRVEC,-<SP) 

• 

0 

SAVE CONTENTS OF ERROR VECTOR 

014264 

012737 

014302 

000004 


MOV 

f1060$,ERRVEC 

m 

SETUP 'TRAP' RETURN ADDRESS 

014272 

013737 

177766 

014454 


MOV 

1 77766, CPSAVE 

« 

0 

MOVE CPU ERROR REGISTER TO CPSAVE FOR TEST 

014300 

000406 




BR 

1001$ 



014302 

012737 

177777 

014454 

1000$: 

MOV 

#-1,CPSAV£ 

• 

0 

SET CPU ERROR REGISTER TIMEOUT INDICATOR 

014310 

012716 

014316 



MOV 

#106l$,<SP) 

* 

0 

SETUP RETURN ADDRESS 

014314 

000002 




RTI 




014316 

012637 

000004 


1001S: 

MOV 

(SP)+,ERRVEC 

0 

RESTORE CONTENTS OF ERROR VECTai | 

014322 

022737 

177777 

014454 

1002$: 

CMP 

#-1,CPSAVE 

« 

0 

SEE IF CPSAVE HAS CPU ERR REG TIMEOUT INDICATION | 

014330 

001420 




BEO 

1004$ 

• 

0 

BRANCH IF SO 

014332 

032737 

000001 

014454 


BIT 

R81T00,CPSAVE 

» 

0 

SEE IF POWER MONITOR BIT IS SET IN CPU ERR REG , 

014340 

001414 




BEQ 

1004$ 

0 

BRANCH IF OK 

014342 

042737 

000001 

177766 


BIC 

I8IT00. 177766 

« 

• 

CLEAR THE BIT FOUND SET 1 

014350 

113737 

001114 

014456 


MOVB 

SITEMB, IBSAVE 

• 

# 

MAKE IBSAVE NON>ZERO FOR DUAL ERROR CALL I 

014356 

112737 

000177 

001114 


MOVB 

#177jlTEMB 

0 

SET SITEMB TO SPECIAL POWER FAIL POINTER 1 

014364 

000402 




BR 

1004i 

• 

0 

BRANCH OVER IBSAVE CLEARING 

014366 

105037 

014456 


1003$: 

CLRB 

IBSAVE 

• 

0 

CLEAR IBSAVE SO 2ND TIME THROUGH EXITS 

014372 




1004$: 




! 

014372 

032777 

020000 

164540 


BIT 

A8IT13,aSWR 

• 

0 

SKIP TYPEOUT IF SET 

014400 

001004 




BNE 

20$ 

« 

0 

SKIP TYPEOUTS 

014402 

004737 

014460 



JSR 

PC,$ERRTYP 

» 

• 

GO TO USER ERROR ROUTINE 


E 
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014406 

104401 

001207 


TYPE 

.SCRLF 

014412 



20S: 



014412 

105737 

014456 

2$: 

TSTB 

IBSAVE 

014416 

001005 



BNE 

3S 

014420 

005777 

164514 


TST 

asuR 

014424 

100002 



BPL 

3$ 

014426 

000000 



HALT 


014430 

104407 



CKSUR 


014432 

014432 

022737 

013316 000042 

3$: 

CMP 

#$ENDAD.8/r42 

014440 

001001 



BNE 

6$ 

014442 

000000 



HALT 


014444 



6$: 



014444 

105737 

014456 


TSTB 

IBSAVE 

014450 

001236 



BNE 

7$ 

014452 

000002 



RTI 


014454 

000000 


CPSAVE: 

.WORD 

0 

014456 

000000 


IBSAVE: 

.WORD 

0 


5 


SEQ 0056 


SEE IF 18SAVE IS LOADED 

BRANCH IF NOT - NO HALT ON PWR MON BIT ERROR 
HALT ON ERROR 
SKIP IF CONTINUE 
HALT ON ERROR! 

TEST FOR CHANGE IN SOFT-SWR 

;AC7-11 AUTO-ACCEPf? 

;BRANCH IF NO 
;rES 

;SEE IF ITEM BYTE SAVE LOCATION HAS AN ERROR CALL 
.’BRANCH BACK TO CALL ORIGINAL ERROR 
* RE TUAN 

; LOCATION TO SAVE CPU ERROR REG CONTENTS 
.’LOCATION TO SAVE ITEM BYTE 




SEQ 0057 


CZRNIAO RN80 DUAL FORT PT2 MACRO VOA.OO 15-JAN-82 07;13;A0 PAGE H 
ERROR MESSAGE TYPEOUT ROUTINE 
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*THIS ROUTINE USES THE "ITEM CONTROL BYTE" (SITEMB) TO DETERMINE WHICH 
*ERROR IS TO BE REPORTED. IT THEN OBTAINS. FROM THE ‘tRROR TABLE" (SERRTB). 
*AND REPORTS THE APPROPRIATE INFORMATION CONCERNING THE ERROR. 


01 4460 
014460 
014464 
014466 
014470 
014474 


104401 

010046 

005000 

153700 

001004 


001207 


001114 


fERRTYP; 


014476 013746 001116 


014502 

014504 

014506 

014512 

014514 

014522 

014526 

014530 

014532 

014534 

014536 

0U540 

014544 

014550 

014552 

014554 

014556 

0145A2 

014566 

014570 

014572 

014574 

014600 

014602 

014604 

014606 

014610 

014612 

014614 

014616 

014620 

014622 

014622 

014624 

014626 

014630 

014632 

014636 

014640 

014642 


104402 

000456 

122700 

001006 

113737 

012700 

00C406 

005300 

006300 

006300 

006300 

062700 

012037 

001404 

104401 

000000 

104401 

012037 

001404 

104401 

000000 

104401 

010146 

012001 

001415 

012000 

105720 

001003 

013146 

104402 

000402 

015146 

104405 

005711 

0C1403 

104401 

000764 

012601 

012600 


000177 

001102 015016 
014656 


001276 

014554 


1000 $; 


001207 

014572 


001207 


014652 


TVPOC 

BR 

CMP8 

BNE 

MOVB 

NOV 

BR 

DEC 

ASL 

ASL 

ASL 


.SCRLF 

RO.-<SP) 

RO 

a#$ITEMB.RO 

IS 

SERRPC.-(SP) 


10 $ 

#177-R0 

lOOOi 

STSTNM.PFTSTN 

fPFECH.RO 

1001 $ 

RO 

RO 

RO 

RO 


"CARRIAGE RETURN" I *1INE FEED" 

SAVE RO 

PICKUP THE ITEM INDEX 

IF ITEM NUMBER IS ZERO. JUST 
TYPE THE PC OF THE ERROR 
SAVE SERRPC FOR TYPEOUT 
ERROR ADDRESS 

60 TYPE--OCTAL ASCII (ALL DIGITS) 

GET our 

SEE IF THIS ERROR CALL IS SPECIAL POWER FAIL CALL 
BRANCH IF NOT 
GET TEST NUMBER 

MOVE POWER FAIL ERROR CALL TABLE TO RO 
BRANCH TO CALL ERROR 
ADJUST THE INDEX SO THAT IT WILL 
WORK FOR THE ERROR TABLE 



ADD 

fSERRTB.RO 

.‘FORM TABLE POINTER 

1001$: 

MOV 

(R0)^.2i 

.•PICKUP *tRROR MESSAGE" POINTER 


BEQ 

TYPE 

3$ 

.•SKIP TYPEOUT IF NO POINTER 
.•TYPE THE ’^RROR MESSAGE" 

.•"ERROR MESSAGE" POINTER GOES HERE 

2$: 

.WORD 

0 


TYPE 

.SCRLF 

.-'tARRIAGE RETURN** 1 *1INE FEED" 

3$: 

NOV 

(R0)^.4$ 

.'PICKUP *^ATA HEADER" POINTER 


BEO 

TYPE 

5$ 

.SKIP TYPEOUT IF 0 
.•TYPE THE ’tATA HEADER** 

4$: 

.WORD 

0 

;'1DATA HEADER** POINTER GOES HERE , 

.-‘tARRIAGE RETURN" t *1INE FEED" | 


TYPE 

i«RLF 

5$: 

NOV 

»il--<SP) 

.‘SAVE R1 


MOV 

<R0)+.R1 

.•PICKUP *tATA TABLE** POINTER 1 


BEQ 

9$ 

;BR IF NO DATA TO BE TYPED 


MOV 

(RO)+.RO 

.•PICKUP *tATA FORMAT*' POINTER 
;'X)CTAL‘* OR ’DECIMAL" 

6$: 

TSTB 

(R0>+ 


BNE 

7$ 

;BR IF DECIMAL 

7$: 

MOV 

TYPOC 

BR 

a(R1)S-(SP) 

8$ 

;SAVE a(Rl)^ FOR TYPEOUT 

;60 TYPE— OCTAL ASCII (ALL DIGITS) j 


MOV 

TYPOS 

a(Ri)+.-(SP) 

.•SAVE a(R1)« FOR TYPEOUT 

;60 TYPE— DECIMAL ASCII WITH SIGN 

8$: 

TST 

(R1) 

;IS THERE ANOTHER NUMBER? 


BEQ 

9$ 

;BR IF NO ^ 


TYPE 

.11$ 

;TYPE TH0(2) SPACES 


BR 

6$ 

;LOOP 

9$; 

MOV 

(SP)+.R1 

.•RESTORE R1 

10$: 

MOV 

(SP)>.RO 

.'RESTORE RO , 


SEQ 0058 


6 5 
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0U666 

0H750 


015012 


.-•‘CARRIAGE RETURN" & "LINE FEED" 
.-RETURN 

;TW0(2) SPACES 


014644 104401 001207 TYPE SCRLF ;; "CARRIAGE RETURN" 8 'UNE FEED ' 

040 000 1.*: "%» / :■:•?««? S«CES 

“oltiu '‘■‘•^0 

014^ 124 105 123 PFECH2: .ASCIZ ?TESTNO ERR PC CPUERRE6? 

015002 015016 001116 014454 PFECH3: ’.WORD PFTSTN.SERRPC.CPSAVE.O 

olloil 000000 ®®‘’ PflSITN! IWORD 0'°' ' ;;CONIAINS TEST NUMBER FOR PF BIT ERROR 


015016 000000 
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.S8TTL TYPE ROUTINE 


SEQ 0059 


015020 

015024 

015026 

015030 

015032 

015034 

015040 

015042 

015044 

015046 

015050 

015054 

015056 

015062 

015064 

015070 

015072 

015074 

015076 

015100 

015104 

015106 

015112 

015116 

015120 

015124 

015130 

015132 

015136 

015142 


015144 

015150 

015154 

015162 

U15164 

015166 


105737 

100002 

000000 

000407 

010046 

017600 

112046 

001005 

005726 

012600 

062716 

000002 

122716 

001430 

122716 

001006 

005726 

104401 

001207 

105037 

000755 

004737 

123726 

001350 

013746 

105366 

002770 

004737 

105337 

000770 


112716 

004737 

132737 

001372 

005726 

000724 


001157 


000002 


000002 

000011 

000200 


015306 

015170 

001156 

001154 

000001 

015170 

015306 


000040 

015170 

000007 


015306 


^ROUTINE TO TYPE ASCIZ MESSAGE. MESSAGE MUST TERMINATE WITH A 0 BYTE. 

*THE ROUTINE WILL INSERT A NUMBER OF NULL CHARACTERS AFTER A LINE FEED. 

*N0TE1: MULL CONTAINS THE CHARACTER TO BE USED AS THE FILLER CHARACTER. 

•NOTE^* SFILLS CONTAINS THE NUMBER OF FILLER CHARACTERS REQUIRED. 

*N0TE3: SFILLC CONTAINS THE CHARACTER TO FILL AFTER. 


•CALL: 

«1) USING A TRAP INSTRUCTION 


; • 

TYPE 

.MESADR 

:;MESADR IS FIRST ADDRESS OF AN ASCIZ STRING 

;*0R 




;• 

TYPE 



;• 

;• 

ME SADR 



STYPE: 

TSTB 

STPFLG 

;;IS THERE A TERMINAL? ! 


BPL 

1$ 

;;BR IF YES 


HALT 


;;HALT HERE IF NO TERMINAL 


BR 

3$ 

.-.LEAVE 

1$: 

MOV 

RO.-(SP) 

;;SAVE RO 

2$: 

NOV 

i2(SP).R0 

;;GET ADDRESS OF ASCIZ STRING 

MOVB 

(RO)+.-(SP) 

;;PUSN CHARACTER TO BE TYPED ONTO STACK 


BNE 

4$ 

;;BR IF IT ISN'T THE TERMINATOR 


TST 

(SP)* 

::IF TERMINATOR POP IT OFF THE STACK 

60$: 

NOV 

(SP) *,R0 

.-.‘RESTORE RO 

3$: 

ADD 

02, (sh 

.‘.‘ADJUST RETURN PC 


RTI 

; .-RETURN 

4$: 

CMPB 

#MT.(SP) 

; .-BRANCH IF <HT> 


BEQ 

8$ 



CMP8 

RCRLF.CSP) 

.-.-BRANCH IF NOT <CRLF> 


BNE 

5$ 



TST 

(SP)* 

.-.-POP <CR><LF> EOUIV 


TYPE 

SCRLF 


.-.-TYPE A CR AND LF 


CLR8 

SCHARCNT 

.-.-CLEAR CHARACTER COUNT 


BR 

2$ 

;.-GET NEXT CHARACTER 

5$: 

JSR 

PC,$TYPEC 

.-.-GO TYPE THIS CHARACTER 

6$: 

CMPB 

$FILLC.(SP)+ 

;;IS IT TIME FOR FILLER CHARS.? 


BNE 

2$ 

.-.-IF NO 60 GET NEXT CHAR. 


MOV 

SNULL,-(SP) 

.-.-GET # OF FILLER CHARS. NEEDED 
.-.-AND THE NULL CHAR. 

7$: 

DECS 

KSP) 

.-.-DOES A NULL NEED TO BE TYPED? 


6LT 

6$ 

;;BR IF N0~60 POP THE NULL OFF OF STACK ! 


JSR 

PC.STYPEC 

;.-G0 TYPE A NULL 


DECB 

SCHARCNT 

;;D0 NOT COUNT AS A COUNT 


BR 

7$ 

.-.-LOOP 


.•HORIZONTAL TAB PROCESSOR 


MOVB 

JSR 

BITS 

BNE 

TST 

6R 


#• -(SP) 

pcJtypec 

#7.$CHARCNT 

9S 

(SP)* 

2 $ 


REPLACE TAB WITH SPACE 
TYPE A SPACE 
BRANCH IF NOT AT 
TAB STOP 

POP SPACE OFF STACF 
GET NEXT CHARACTER 


C2RNIA0 RH80 DUAL PORT PT2 MACRO V04.00 15-JAN-82 07:13:40 PAGE 15-1 
TYPE ROUTINE 


015170 




fTYPEC: 



015170 

105777 

163750 



TST8 

a$TKS 

015174 

100022 




BPL 

10$ 

015176 

017746 

163744 



NOV 

a$TKB.-(SP) 

015202 

(K,2716 

177600 



BIC 

#177600, (SP) 

015206 

122716 

000023 



CNPB 

#$XOFF,(SP) 

015212 

001012 




BNE 

102$ 

01 5214 




101$: 



015214 

105777 

163724 



TST8 

a$TKS 

015220 

100375 




BPL 

101$ 

015222 

117716 

163720 



NOVB 

a$TKa.(SP) 

015226 

042716 

177600 



BIC 

#177600, (SP) 

015232 

122716 

000021 



CMP8 

#$XON,(SP} 

015236 

001366 




BNE 

101$ 

015240 




102$: 



015240 

005726 




TST 

(SP)* 

015242 




10$: 



015242 

105777 

163702 



TSTB 

a$TPs 

015246 

100375 




BPL 

10$ 

015250 

116677 

000002 

163674 


NOVB 

2(SP>,a$TPB 

015256 

122766 

000015 

000002 


vnro 

#CR.2<SP) 

015264 

001003 




BNE 

1$ 

015266 

105037 

015306 



CLRB 

$CHARCNT 

015272 





BR 

$TYPEX 

015274 

122766 

000012 

000002 

1$: 

CNPB 

#LF.2(SP> 

015302 

001402 




BEQ 

$TYPEX 

015304 

105227 




INCB 

(PC)* 

015306 

000000 



$CHARCNT:.U0RD 

0 

015310 

000207 



$TYPEX: 

RTS 

PC 


;;CHAR IN KYBD BUFFER? 

;;BR IF NOT 
;;GET CHAR 

;; STRIP EXTRANEOUS BITS 
;;UAS CHAR XOFF 
:;BR IF NOT 

;;WAIT FOR CHAR 

;;GET CHAR 
; .-STRIP IT 
:;WAS IT XON? 

;;BR IF NOT 

;;FIX STACK 

.-.-IMIT UNTIL PRINTER IS READY 

.-.-LOAD CHAR TO BE TYPED INTO DATA REG. 
;;IS CHARACTER A CARRIAGE RETURN? 

; .-BRANCH IF NO 

;; YES— CLEAR CHARACTER COUNT 
;;EXIT 

;;IS CHARACTER A LINE FEED? 

; .-BRANCH IF YES 
.-.-COUNT THE CHARACTER 
.-.-CHARACTER COUNT STORAGE 


SEQ 0060 


! 


SEQ 0061 
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.S8TTL BINARY TO OCTAL (ASCII) AND TYPE 


015312 

015316 

015324 

015330 

015334 

015336 

015344 

015352 

015360 

015362 

015364 

015366 

015372 

015374 

015400 

01540-'. 

015410 

015414 

015416 

015420 

015422 

015424 

015426 

015430 

015432 

015434 

015440 

015442 

015446 

015450 

015452 

015454 


017646 

116637 

112637 

062716 

000406 

112737 

112737 

112737 

010346 

010446 

010546 

113704 

005404 

062704 

110437 

113704 

016605 

005003 

006105 

000404 

006105 

006105 

006105 

010503 

006103 

105337 

100016 

042703 

001002 

005704 

001403 

005204 


*THIS ROUTINE IS USED TO CHANGE A 16-81T BINARY NUMBER ^0 A 6-D161T 
•OCTAL (ASCII) Nlf«ER AND TYPE IT. 

•STYPOS — ENTER HERE TO SETUP SUPPRESS ZEROS AND NUMBER OF DIGITS TO TYPE 
•CALL: 


MOV 

TYPOS 

.BYTE 

.BYTE 


NUM,-(SP) 


NUMBER TO BE TYPED 
CALL FOR TYPEOUT 

Ns1 TO 6 FOR NUMBER OF DIGITS TO TYPE 
M-1 OR 0 

;;1sTYP£ LEADING ZEROS 
;;OsSUPPRESS LEADING ZEROS 


000000 

000001 015535 

015537 

000002 

000001 015535 
000006 015537 
000005 015534 


015537 

000006 

015536 

015535 

000012 


•STYPON ENTER HERE TO TYPE OUT WITH THE SAME PARAMETERS AS THE LAST 

•STYPOS OR STYPOC 
•CALL: 

• MOV NUM.-(SP) ; .‘NUMBER TO BE TYPED 

• TYPON ;;CALL FOR TYPEOUT 

•STYPOC ENTER HERE FOR TYPEOUT OF A 16 BIT NUMBER 

•CALL: 

• MOV NUM.-(SP) .‘.‘NUMBER TO BE TYPED 

• TYPOC .‘.‘CALL FOR TYPEOUT 

TYPOS; MOV a(SP).-(SP) .‘.PICKUP THE MODE 

MOVB 1(SP).S0FILL ;;LOAD ZERO FILL SWITCH 

M0V8 (SP)+.S0MCDE*1 .‘.‘NUMBER OF DIGITS TO TYPE 

ADD #2.(SP) .‘.‘ADJUST RETURN ADDRESS 

BR STYPON 

TYPOC: MOVB #1.S0FILL ;.‘S£T THE ZERO FILL SWITCH 

MOVB f6.S0M0DE^1 .‘.‘SET FOR SIX(6) DIGITS 

TYPON; MOVB DS.SOCNT ;;SET TF« ITERATION COUNT 

MOV R3.-(SP) .‘.‘SAVE f3 

MOV R4.-(SP) .‘.‘SAVE R4 

mv RS •(SP) ••SAVf RS 

MOVB S(mE*1.R4 ‘‘GET THE NUMBER OF DIGITS TO TYPE 

NEG R4 

ADD #6.R4 .‘.‘SUBTRACT IT FOR MAX. ALLOWED 

MOVB R4.SOMODE .‘.'SAVE IT FOR USE 

MOVB S0FILL.R4 .‘.‘GET THE ZERO FILL SWITCH 

MOV 12(SP).R5 ;.‘P1CKUP THE INPUT NUMBER 

CLR R3 .‘.‘CLEAR THE OUTPUT WORD 

S: ROL R5 .‘.‘ROTATE MSB INTO ‘f 

BR 3S ;:G0 DO MSB 

S: ROL R5 .‘;F0RM THIS DIGIT 


015536 

177770 


.‘•CALL: 

;• MOV 

NUM.o(SP) 

;• TYPOC 

STYPOS; MOV 

a(SP).-(SP) 

MOVB 

1(SP).S0FILL 

MOVB 

(SP)+.SOMCDE 

ADD 

#2.(SP) 

BR 

STYPON 

STYPOC: MOVB 

#1.S0F1LL 

MOVB 

f6.SOMOOE+1 

STYPON; MOVB 

PS.SOCNT 

MOV 

R3.-(SP) 

MOV 

R4.-(SP) 

MOV 

R5.-($P) 

MOVB 

SOMODE^I.RA 

NEG 

R4 

ADD 

#6.R4 

MOVB 

R4.SOMODE 

MOVB 

S0FJLL.R4 

MOV 

l|(SP).R5 

CLR 

R3 

IS: ROL 

R5 

BR 

3S 

2S: ROL 

R5 

ROL 

R5 

ROL 

R5 

MOV 

R5.R3 

3S: ROL 

R3 

DECB 

SOMODE 

BPL 

7S 

BIC 

#177770.R3 

BNE 

4S 

TST 

R4 

BEO 

SS 

4S: INC 

R4 


GET LSB OF THIS DIGIT 
TYPE THIS DIGIT? 

BR IF NO 
GET RID OF JUNK 
TEST FOR 0 
SUPPRESS THIS 0? 

BR IF YES 

DON^T SUPPRESS ANYMORE O'S 


K 
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015456 

052703 

000060 

BIS 

015462 

052703 

000040 

5S: BIS 

015466 

110337 

015532 

MOVB 

015472 

104401 

015532 

TYPE 

015476 

105337 

015534 

7$: DECB 

015502 

003347 


B6T 

015504 

002402 


BLT 

015506 

005204 


INC 

015510 

000744 


BR 

015512 

012605 


6S: MOV 

015514 

012604 


MOV 

015516 

012603 


MOV 

015520 

016666 

000002 000004 

MOV 

015526 

012616 


MOV 

015530 

000002 


RTI 

015532 

000 


8S: .BYTE 

015533 

000 


.BYTE 

015534 

000 


SOCNT: .BYTE 

015535 

000 


SOFILL: .BYTE 

015536 

000000 


SOMODE: .WORD 


#’0.R3 
»' -R3 
R3.h 

2S 

6S 

R4 

2 * 

(SP>+. R5 


(SP)*,R4 
($?)♦, R3 
2(SP),4(SP) 
(SP)+,(SP) 


0 

0 

0 

0 

0 



5 


SEQ 0062 


MAKE THIS DIGIT ASCII 
MAKE ASCII IF NOT ALREADY 
SAVE FOR TYPING 
GO TYPE THIS DIGIT 
COUNT BY 1 
BR IF MORE TO DO 
BR IF DONE 

INSURE LAST DIGIT ISN'T A BLANK 
GO DO THE LAST DIGIT 
RESTORE R5 
RESTORE R4 
RESTORE R3 

SET THE STACK FOR RETURNING 
RETURN 

STORAGE FOR ASCII DIGIT 
TERMINATOR FOR TYPE ROUTINE 
OCTAL DIGIT COUNTER 
ZERO FILL SWITCH 
NUMBER OF DIGITS TO TYPE 


I 


SEQ 0063 
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.SBTTL CONVERT BINARY TO DECIMAL AND TYPE ROUTINE 

:*THIS ROUTINE IS USED TO CHANGE A 16-eiT BINARY NUMBER TO A 5-DIGIT 
:*SIGNED DECIMAL (ASCII) NUMBER AND TYPE IT. DEPENDING ON WHETHER THE 
:*NUMBER IS POSITIVE OR NEGATIVE A SPACE OR A MINUS SIGN WILL BE TYPED 
;*BEFORE THE FIRST DIGIT OF THE NUMBER. LEADING ZEROS WILL ALWAYS BE 
.-•REPLACED WITH SPACES. 






.-•CALL; 








; • 

MOV 

NUM,-(SP) 

;;PUT THE BINARY NUMBER ON THE STACK 





; • 

TYPDS 


;;G0 TO THE ROUTINE 

015540 




STYPDS: 




015540 

010046 




MOV 

RO,-{SP) 

.-.’PUSH RO ON STACK 

015542 

010146 




MOV 

R1.-{SP) 

;;PUSH R1 ON STACK 

015544 

010246 




MOV 

R2,-(SP) 

.-.-PUSH R2 ON STACK 

015546 

010346 




MOV 

R3.-(SP) 

;;PUSH R3 ON STACK 

015550 

010546 




MOV 

R5.-(SP) 

.-.'PUSH R5 ON STACK 

015552 

012746 

020200 



MOV 

#26200. -(SP) 

;;SET BLANK SWITCH AND SIGN 

015556 

016605 

000020 



MOV 

20{SP).R5 

;:GET THE INPUT NUMBER 

015562 

100004 




BPL 

1$ 

;:BR IF INPUT IS POS. 

015564 

005405 




NEG 

R5 

;;MAKE THE BINARY NUMBER POS. 

015566 

112766 

000055 

000001 


MOVB 

#'-.1(SP) 

;;MAKE THE ASCII NUMBER NEG. 

015574 

005000 



1$: 

CLR 

RO 

;:ZERO THE CONSTANTS INDEX 

015576 

012703 

015754 



MOV 

#$DBLK.R3 

;; SETUP THE OUTPUT POINTER 

015602 

112723 

000040 



MOVB 

#• .(R3)+ 

;;SET THE FIRST CHARACTER TO A BLANK 

015606 

005002 



2$: 

CLR 

R2 

;; CLEAR THE BCD NUMBER 

015610 

016001 

015744 



MOV 

$DT6L(R0).R1 

;;GET THE CONSTANT 

015614 

160105 



3$: 

SUB 

R1.R5 

;;FORM THIS BCD DIGIT 

015616 

002402 




8LT 

4$ 

;;BR IF DONE 

015620 

005202 




INC 

R2 

;; INCREASE THE BCD DIGIT BY 1 

015622 

000774 




OR 

3$ 


015624 

060105 



4S: 

ADD 

R1.R5 

;;ADD BACK THE CONSTANT 

015626 

005702 




TST 

R2 

;; CHECK IF BCD DIG1T=0 

015630 

001002 




BNE 

5$ 

;;FALL THROUGH IF 0 

015632 

105716 




TSTB 

(SP) 

;; still DOING LEADING O'S? 

015634 

100407 




6M1 

7$ 

.-.BR If YES 

015636 

106316 



5$: 

ASLB 

(SP) 

;;MSD? 

015640 

103003 




BCC 

6$ 

;;8R IF NO 

015642 

116663 

000001 

177777 


MOVB 

1{SP).-1(R3) 

;; YES— SET THE SIGN 

015650 

052702 

000060 


6$: 

BIS 

fO.R2 

;:MAKE THE BCD DIGIT ASCII 

015654 

052702 

000040 


7$: 

BIS 

#* .R2 

;:MAKE IT A SPACE IF NOT ALREADY A DIGIT 

015660 

110223 




MOVB 

R2-{R3)+ 

;;PUT THIS CHARACTER IN THE OUTPUT BUFFER 

015662 

005720 




TST 

(r 6)+ 

;:JUST INCREMENTING 

015664 

020027 

000010 



CMP 

R0.#10 

;; CHECK THE TABLE INDEX 

015670 

002746 




BLT 

2S 

;;G0 DO THE NEXT DIGIT 

015672 

003002 




BGT 

8$ 

;;60 TO EXIT 

015674 

010502 




MOV 

R5.R2 

;;6ET THE LSD 

015676 

000764 




BR 

6S 

;;60 CHANGE TO ASCII 

015700 

105726 



8$: 

TSTB 

(SP) + 

;;WAS THE LSD THE FIRST NON-ZERO? 

015702 

100003 




BPL 


;;BR.1F NO 

015704 

116663 

177777 

177776 


MOVB 

-1(SP).-2(R3) 

;; YES— SET THE SIGN FOR TYPING 

015712 

105013 



9$: 

CLR8 

(R3) 

;;SET THE TERMINATOR 

015714 

012605 




MOV 

(SP)+.R5 

;;POP STACK INTO R5 

015716 

012603 




MOV 

(SP)+.R3 

;;POP STACK INTO R3 

015720 

012602 




MOV 

(SP)+.R2 

;;POP STACK INTO R2 

015722 

012601 




MOV 

CSP)*.R1 

;;POP STACK INTO R1 


StQ 0064 


n 
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015724 

012600 



MOV 

(SP)+.RO 

015726 

104401 

015754 


TYPE 

.$D6LK 

2(SP>.4(SP) 

015732 

016666 

000002 000004 


MOV 

015740 

012616 



NOV 

(SP)*.(SP) 

015742 

000002 



RTI 


015744 

023420 


$DTBL: 

10000. 


015746 

001750 



1000. 


015750 

000144 



100. 


015752 

000012 



10. 


015754 



SDBLK: 

.BLKU 

4 


;;P0P STACK INTO RO 
;;NOW TYPE THE NUMBER 
; .-ADJUST THE STACK 

.-.‘RETURN TO USER 


SEQ 0065 
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.SBTTL TTY INPUT ROUTINE 


015764 000000 
015766 000000 
015770 000000 
015772 

015773 


015774 

016000 

016006 

016014 

016022 

016030 

016034 

016042 


005037 

012737 

013737 

012737 

012737 

005777 

012777 

000207 


016044 

016050 

016054 

016060 

016062 

016064 

016066 

016066 

016072 

016074 

016100 

016104 

016106 

016112 

016116 

016120 

016126 

016130 

016130 

016136 

016140 


015764 

015772 

015766 

016044 

000200 

163112 

000100 


015766 

015770 

000060 

000062 

163102 


117746 

042716 

021627 

001002 

005726 

000002 

021627 

001007 

104401 

004737 

005726 

000137 

021627 

001004 

022737 

001500 


022737 

001004 

104401 


163076 

177600 

000021 


000003 

017172 

015774 

001766 

000007 

000176 001140 


000001 015764 
001202 


.ENABL LS8 
STKCNT: .WORD 0 
STKOIN: .WORD 5 
STKOOUT: .WORD 0 
STKOSRT: .BLKB 1 
STKOENDs. 

.EVEN 


.•NUMBER OF ITEMS IN QUEUE 
.•INPUT POINTER 
.•OUTPUT POINTER 
;TTY KEYBOARD QUEUE 


*TK INITIALIZE ROUTINE 

*THIS ROUTINE WILL INITIALIZE THE TTY KEYBOARD INPUT QUEUE 
*SETUP THE INTERRUPT VECTOR AND TURN ON THE KEYBOARD INTERRUPT 


.-•CALL: 

; • JSR 

;* RETURN 

iTKINT: CLR 
NOV 
MOV 
NOV 
MOV 
TST 
MOV 
RTS 


PC.STKINT 

STKCNT 

ASTKQSRT.STKQIN 

STKQIN.STKQOUT 

#$TKSRV.a#TKVEC 

#200.a#TKVEC«2 

iSTW 

flOO.aSTKS 

PC 


.•CLEAR COUNT OF ITEMS IN QUEUE 
.•MOVE THE STARTING ADDRESS OF THE 
.•QUEUE INTO THE INPUT t OUTPUT POINTERS. 
.•INITIALIZE THE KEYBOARD VECTOR 
;^8R" LEVEL 4 
; CLEAR DONE FLAG 
.•ENABLE TTY KEYBOARD INTERRUPT 
.•RETURN TO CALLER 


• CPPt/IfF DraiTIMP 

;*THIS ROUTINE WILL SERVICE THE TTY KEYBOARD INTERRUPT 
:*BY READING THE CHARACTER FROM THE INPUT BUFFER AND PUTTING 
.-•IT IN THE QirUE. 

;*IF THE CHARACTER IS A *tONTROL-C'‘ (*C) STKINT IS CALLED AND 
;*UPON RETURN EXIT IS MADE TO THE "CONT~OL-C'* RESTART ADDRESS (START) 


ItKSRV: N0V8 
BIC 


aSTKB.-(SP) 
fC17?.(SP) 
(SP) .nxoN 
30$ 

<SP)+ 


(SP).« 

1 $ 

.SCNTLC 

PC.STKINT 

(SP)+ 

START 

(SP).#7 

2S 

ASWREG.SWR 

6S 


f1 .STKCNT 

3S 

.SBELL 


.•PICKUP THE CHARACTER 
; STRIP THE JUNK 
;IS IT A RANDOM XON? 

.•BRANCH IF NO 

.•CLEAN RANDOM XON OFF STACK 
.•RETURN 

; IS IT A CONTROL C? 

.•BRANCH IF NO 
.•lYPE A CONTROL-C (*C) 

.•INIT THE KEYBOARD 
.•CLEAN UP STACK 
.•CONTROL C RESTART 
.•IS IT A CONTROL G? 

.•BRANCH IF NO 

;IS SOFT-SWR SELECTED? 

.•60 TO SWR CHANGE 


.-.-IS THE QUEUE FULL? 
; .-BRANCH IF NO 
.-.-RING THE TTY BELL 


SEQ 0066 
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016144 

005726 




TST 

(SP) + 

.•CLEAN CHARACTER OFF OF STACK 

016146 

000451 




BR 

5$ 

.•EXIT 

016150 

021627 

000023 


3$; 

CMP 

(SR) .#23 

;IS IT A CONTROL-S? 

016154 

001021 




6NE 

32$ 

.•BRANCH IF NO 

016156 

005077 

162762 



CLR 

a$TKS 

.•DISABLE TTY KEYBOARD INTERRUPTS 

016162 

005726 




TST 

(SP)* 

.'CLEAN CHAR OFF STACK 

016164 

1057^ 

162754 


31$: 

TSTB 

a$TKS 

.'WAIT FOR A CHAR 

016170 

100375 




BPL 

31$ 

.•LOOP UNTIL ITS THERE 

016172 

117746 

162750 



Move 

a$TKB,-(SP) 

.'GET THE CHARACTER 

016176 

042716 

177600 



BIC 

#*C177.(SP) 

.'MAKE IT 7-01 T ASCII 

016202 

022627 

000021 



CMP 

(SP)+.#21 

;IS IT A CONTROL-Q? 

016206 

001366 




BNE 

31$ 

.•BRANCH IF NO 

016210 

01? ’77 

000100 

162726 


MOV 

#ioo,a$TKS 

.•REENABLE TTY KEYBOARD INTERRUPTS 

016216 

OCj'.O** 




RTI 


.•RETURN 

016220 

00523* 

015764 


32$: 

INC 

$TKCNT 

.•COUNT THIS CHARACTER 

016224 

71627 

000140 



CMP 

(SP),#140 

;IS IT UPPER CASE? 

016230 

002405 




BLT 

4$ 

.•BRANCH IF YES 

016232 

021627 

000175 



CMP 

(SP),#175 

;IS IT A SPECIAL CHAR? 

016236 

003002 




BGT 

4$ 

.•BRANCH IF YES 

016240 

042716 

000G40 



BIC 

#40- (SP) 

.•MAKE IT UPPER CASE 

016244 

112677 

177516 


4$: 

MOVB 

(SP)^,a$TKQIN 

.•AND PUT IT IN QUEUE 

016250 

00523? 

015766 



INC 

$TK0IN 

.•UPDATE THE POINTER 

U16254 

023727 

015766 

015773 


CMP 

$TKQIN,#$TKQEND 

;G0 OFF THE END? 

016262 

001003 




BNE 

5$ 

.•BRANCH IF NO 

016264 

012737 

015772 

015766 


MOV 

#$TKQSRT,$TKQIN 

.•RESET THE POINTER 

016272 

000002 



5$: 

RTI 


.•RETURN 


016274 

022737 

000176 001140 

r^CALL WHEN 1 
iCKSWR: CMP 

016302 

001124 


BNE 

016304 

105777 

162634 

TSTB 

016310 

100121 


BPL 

016312 

117746 

162630 

MOVB 

0-6316 

042716 

177600 

BIC 

016322 

021627 

000007 

CMP 

016326 

001300 


BNE 


*SOfTWARE SWITCH REGISTER CHANGE ROUTINE. 

^ROUTINE IS ENTERED FROM THE TRAP HANDLER, AND WILL 
^SERVICE THE TEST FOR CHANGE IM SOFTWARE SWITCH REGISTER TRAP 


PSWREG.SWR 

15$ 

aSTKS 

15 $ 

8$TK8.-(SP) 

fC177-(SP) 

(SP).07 

2 $ 


IS THE SOFT-SWR SELECTED 

EXIT If NOT 

IS A CHAR WAITING? 

IF NOT, EXIT 
YES 

MAKE IT 7-filT ASCII 
IS IT A CONTROL-G? 

If NOT, PUT IT IN THE TTY QUEUE 
AND EXIT 


016330 123727 001134 000001 
016336 001674 
016340 005726 
016342 004737 015774 
016346 005077 162572 
016352 112737 000001 001135 

016360 104401 017204 
016364 104401 017211 
016370 013746 000176 
016374 104402 


^CONTROL IS PASSED TO THIS POINT FROM EITHER THE TTY INTERRUPT SERVICE 
•ROUTINE OR FROM THE SOFTWARE SWITCH REGISTER TRAP CALL, AS A RESULT OF A 
•CONTROL-G BEING TYPED, AND THE SOFTWARE SWITCH REGISTER BEING SELECTED. 


TYPE 

SGTSWR; TYPE 
NOV 
TYPOC 


$AUT0B,#1 

2 $ 

(SP)* 

PC,$TXINT 

a$TXS 

#1,$INTAG 

,$CNTL6 

,$MSWR 

SWREG,-(1«) 


ARE WE RUNNING IN AUTO-NODE? 
BRANCH IF YES 
CLEAR CONTROL-6 OFF STACK 
FLUSH THE TTY INPUT QUEUE 
DISABLE TTY KEYBOARD INTERRUPTS 
SET INTERRUPT MODE INDICATOR 

ECHO THE CONTROL-G (*G) 

TYPE CURRENT CONTENTS 

SAVE SWREG FOR TYPEOUT 

GO TYPE— OCTAL ASCI I (ALL DIGITS) 
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016376 

104401 

017222 



TYPE 

,$MNEU 

016402 

005''46 



19$: 

CLR 

-(SP) 

016404 

005046 




CLR 

-<SP) 

016406 

105777 

162532 


7$: 

TST8 

a$TKS 

016412 

100375 




8PL 

7$ 

016414 

117746 

162526 



M0V8 

a$TKB,-(SP) 

016420 

042716 

177600 



8IC 

A*C17^(SP) 

016424 

021627 

000003 



CMP 

(SP>,#3 

016430 

001015 




8NE 

9$ 

016432 

104401 

017172 



TYPE 

,$CNTLC 

016436 

062706 

000006 



ADD 

A6,SP 

016442 

123727 

001135 

000001 


CMP8 

$JNTAG,A1 

016450 

001003 




8NE 

8$ 

016452 

012777 

000100 

162464 


MOV 

A100,a$TKS 

016460 

000137 

001766 


8$: 

JMP 

START 

016464 

021627 

000025 


9$: 

CMP 

(SP),#25 

016470 

001005 




8NE 

10$ 

016472 

104401 

017177 



TYPE 

.$CNTLU 

016476 

062706 

000006 


20$: 

ADD 

A6.SP 

016502 

000737 




8R 

19i 

016504 

021627 

000015 


10$: 

CMP 

(SP).#15 

016510 

001022 




8NE 

16$ 

016512 

005766 

000004 



TST 

4(SP> 

016516 

001403 




8EQ 

11$ 

016520 

016677 

000002 

162412 


MOV 

2(SP}.aSUR 

016526 

062706 

000006 


11$: 

ADD 

«6,SP 

016532 

104401 

001207 


14$: 

TYPE 

,$CRLE 

016536 

123727 

001135 

000001 


CMP8 

$INTA6.#1 

016544 

001003 




BNE 

15$ 

016546 

012777 

000100 

162370 


MOV 

f100,a$TKS 

016554 

000002 



15$: 

RTI 


016556 

004737 

015170 


16$: 

JSR 

PC,$TYP£C 

016562 

021627 

000060 



CMP 

(SP),f60 

016566 

002420 




8LT 

18$ 

016570 

021627 

000067 



CMP 

{SP).#67 

016574 

003015 




86T 

18$ 

016576 

042726 

000060 



BIC 

#60,(SP)+ 

016602 

005766 

000002 



TST 

2(S^) 

016606 

001403 




BEO 


016610 

006316 




ASL 

(SP) 

016612 

006316 




ASL 

(SP) 

016614 

006316 




ASL 

(SP) 

016616 

005266 

000002 


17 $: 

INC 

2(SP) 

016622 

056616 

177776 



BIS 

-2(SP),(SP) 

016626 

000667 




BR 

7$ 

01^ 

104401 

001206 


18$: 

TYPE 

.$aUES 

016634 

000720 




BR 

^0$ 


.DSABL LSB 


6 


SEQ 0067 



SEQ 0068 
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TTY INPUT ROUTINE 










;*THIS ROUTINE 

WILL INPUT A SINGLE CHARACTER FROM THE TTY 





;*CALL: 







; * RDCHR 


;;GET A CHARACTER FROM THE QUEUE 





;* RETURN HERE 

.-.-CHARACTER IS ON THE STACK 





• * 

• 

• 


.-.-WITH PARITY BIT STRIPPED OFF 

016636 

011646 



SRDCHR: MOV 

(SP),-(SP) 

.-.-PUSH DOWN THE PC AND 

016640 

016666 

000004 

000002 

MOV 

4(Sp5,2(SP) 

.-.-THE PS 

016646 

005066 

000004 


CLR 

4(SP) 

.-.-GET READY FOR A CHARACTER 

016652 

005046 



CLR 

-(SP) 

.-.-PUT NEW PS ON STACK 

016654 

012746 

016662 


MOV 

#64$,- (SP) 

.-.-PUT NEW PC ON STACK 

016660 

000002 



RTi 


.-.-POP NEW PC AND PS 

016662 




64S: 



016662 

005737 

015764 


1$; TST 

$TKCNT 

.-.-WAIT ON A CHARACTER 

016666 

001775 



BEO 

1$ 


016670 

005337 

015764 


DEC 

$TKCNT 

.-.-DECREMENT THE COUNTER 

016674 

117766 

177070 

000004 

Move 

a$TK00UT,4(SP> 

.-.-GET ONE CHARACTER 

016702 

005237 

015770 


INC 

$TKOOUT 

.-.-UPDATE THE POINTER 

016706 

023727 

015770 

015773 

CMP 

$TKOOUT,#$TKOENi 

;;D1D IT GO OFF OF THE END? 

016714 

001003 



BNE 

2$ 

::B^CH IF NO 

016716 

012737 

015772 

015770 

MOV 

#$TKOSRT,$TKQOUT ; .-RESET THE POINTER 

016724 

000002 



2$: RTI 


.-.-RETURN 





.-•THIS ROUTINE 

WILL INPUT A STRING FROM THE TTY 





.‘•CALL; 







RDLIN 


.-.-INPUT A STRING FROM THE TTY 





RETURN HERE 

.-.-ADDRESS OF FIRST CHARACTER WILL BE ON THE STACK 





;• 


.-.-TERMINATOR WILL BE A BYTE OF ALL O'S 

016726 

010346 



SRDLIN: MOV 

R3.-(SP) 

.-.-SAVE R3 

016730 

005046 



CLR 

-(SP) 

.-.-CLEAR THE RUBOUT KEY 

016732 

012703 

017162 


1$: MOV 

#$TrYIN,R3 

.-.-GET ADDRESS 

016736 

022703 

017172 


2$: CMP 

#$TTYIN^8.,R3 

; .-BUFFER FULL? 

016742 

101456 



BLOS 

4$ 

IF YES 

016744 

104410 



RDCHR 


.-.-GO READ ONE CHARACTER FROM THE TTY 

016746 

112613 



M0V8 

(SP)*.(R3) 

.-.-GET CHARACTER 

01t»750 

122713 

000177 


10$; CMP6 

#177,(R3) 

.-.-IS IT A RUBOUT 

016754 

001022 



BNE 

5$ 

;;BR IF NO 

016756 

005716 



TST 

(SP) 

.-.-IS THIS THE FIRST RUBOUT? 

016760 

001007 



BNE 

6$ 

;;8R IF NO 

016762 

112737 

000134 

017160 

MOVB 

#*\.9$ 

.-.-TYPE A BACK SLASH 

016770 

104401 

017160 


TYPE 

,9$ 


016774 

012716 

177777 


MOV 

#-1.(SP) 

.-.-SET THE RUBOUT KEY 

017000 

005303 



6$: DEC 


; .-BACKUP BY ONE 

017002 

020327 

017162 


CMP 

R3,#$TTYIN 

.-.-STACK EMPTY? 

017006 

103434 



BLO 

4$ 

;;BR IF YES 

017010 

111337 

017160 


MOVB 

(R3).V$ 

.-.-SETUP TO TYPEOUT THE DELETED CHAR. 

017014 

104401 

017160 


TYPE 

*9$ 

.-.-GO type 

017020 

000746 



BR 


.-.-GO READ ANOTHER CHAR. 

017022 

005716 



5$: TST 

(SP) 

; .-RUBOUT KEY SET? 

017024 

001406 



BEO 

7$ 

.-.-BR IF NO 

017026 

112737 

000134 

017160 

MOVB 

#'\.9$ 

.-.-TYPE A BACK SLASH 

017034 

104401 

017160 


TYPE 

.9$ 


017040 

005016 



CLR 

(SP) 

.-.-CLEAR THE RUBOUT KEY 

017042 

122715 

000025 


7$: CMP8 

025. (RH) 

;,-IS CHARACTER A CTRL U? 

017046 

001003 



BNE 

8$ 

.-,-BR IF NO 
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SEO 0069 


017050 

017054 

017056 

017062 

017064 

017066 

017072 

017076 

017100 

017104 

017106 

017112 

017116 

017122 

017124 

017130 

017134 

017136 

017140 

017142 

017150 

017156 

017160 

017161 

017162 

017172 

017177 

017204 

017211 

017222 


1044Q1 

mt 

001011 

105013 

104401 

104401 

000717 

104401 

000712 

111337 

104401 

122723 

001305 

105063 

104401 

005726 

012603 

011646 

016666 

012766 


017177 

000022 


001207 

017162 

001206 

017160 

017160 

000015 

177777 

001210 


000004 

017162 


000002 

000004 


000 



9$: 

000 







STTYIN; 

136 

103 

015 

SCNTLC: 

136 

125 

015 

SCNTLU: 

136 

107 

015 

SCNTLG: 

015 

012 

123 

SnSUR: 

040 

040 

116 

SNNEU: 


.EVEN 


TYPE 

BR 

CMPB 

BNE 

CLRB 

TYPE 

TYPE 

BR 

TYPE 

BR 

Move 

TYPE 

CMP8 

BNE 

CLRB 

TYPE 

TST 

MOV 

nov 

MOV 

NOV 

RTI 

.BYTE 

.BYTE 

.BLKB 

.ASCiZ 

.ASCJ2 

.ASCIZ 

.ASCIZ 

.ASCiZ 


.SCNTLU 

U 

#22.CR3) 

3$ 

(R3) 

.SCRLF 

-STTYIN 

.SQUES 

1$ 

(R3),9$ 

.9$ 

#15, (R3)* 

2$ 

-1 (R3) 

,»Lf 
(SP) + 

(SP)+,R3 

(SP)--(SP) 

4(SP).2<SP) 

#$TTYJN,4(SP) 

0 

0 

8- , , 
/•C/<15><12> 
/•U/<15><12> 
/*6/<15><l2> 
<15><12>/SUR ^ 
/ NEW * / 


;;TYPE A CONTROL ‘ll” 

;;G0 START OVER 
;;JS CHARACTER A "^R"? 

.-.-BRANCH IF NO 
;; CLEAR TH' CHARACTER 
.-•TYPE A "CR" 8 ‘IF" 

;;TYPE THE INPUT STRING 
;;60 PICKUP ANOTHER CHACTEP 

• - TYPE A ' ’ ' 

••CLEAR THE BUFFER AND LOOP 
;;ECHO THE CHARACTER 

;; CHECK FOR RETURN 
.-.-LOOP IF NOT RETURN 
;; CLEAR RETURN (THE 15) 

;;TYPE A LINE FEED 

;; CLEAN RUBOUT KEY FROM THE STACK 

* ‘RESTORE R3 

••ADJUST THE STACK AND PUT ADDRESa OF THE 
;; FIRST ASCII CHARACTER ON IT 

• ‘RETURN 

••STORAGE F(W ASCII CHAR. TO TYPE 

• •TFlIMfMATOf) 

••RESERVE 8 BYTES FOR TTY INPUT 
;; CONTROL 
;; CONTROL ‘V 
•.•CONTROL ‘V* 


L 
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SEQ 0070 


.S8TTL READ AN OCTAL NUMBER FROM THE TTY 


01723A 

017236 

017244 

017246 

017250 

017252 

017254 

017256 

017262 

017264 

017266 

017270 

017272 

017276 

017300 

017304 

017306 

017310 

017312 

017314 

017316 

017320 

017322 

017326 

017330 

017332 

017334 

017340 

017344 

017346 

017350 

017352 

017354 

017356 

017360 

017362 

017364 

017370 

017372 


WhIS routine will read an octal (ASCII) NUMBER FROM THE TTY AND 
*CHAN6E IT TO BINARY. 

•THE INPUT CHARACTERS WILL BE CHECKED TO INSURED THEY ARE LEGAL^ 

•OCTAL DIGITS. IF AN ILLEGAL CHARACTER IS READ A ‘T WILL BE TYPED 
•FOLLOWED BY A CARRIAGE RETURN-LINE FEED. THE COMPLETE NUMBER MUST 
•THEN BE RETYPED. THE INPUT IS TERMINATED BY TYPING A CARRIAGE RETURN. 
•CALL. 

• RDOCT ;:READ AN OCTAL NUMBER 

• RETURN HERE ;;LOW ORDER BITS ARE ON TOP OF THE STACK 

• ;;HIGH ORDER BITS ARE IN SHIOCT 


011646 

016666 000004 000002 
010046 
010146 
010246 
104411 
012600 

010037 017362 

005001 

005002 

112046 

001420 

122716 000060 
003026 

122716 000067 
002423 
006301 
006102 
006301 
006102 
006301 
006102 

042716 177770 
062601 
000756 
005726 

010166 000012 
010237 017372 
012602 
012601 
012600 
000002 
005726 
105010 
104401 
000000 

104401 001206 

00073C 

000000 


SRDOCT: MOV 
MOV 
MOV 
MOV 
MOV 

IS: RDLIN 

MOV 
MOV 
CLR 
CLR 

2S: MOVB 

BEQ 
CMP8 
B6T 
CMPB 
BLT 
ASL 
ROL 
ASL 
ROL 
ASL 
ROL 
BIC 
ADD 
BR 

3S: TST 

MOV 
MOV 
MOV 
MOV 
MOV 
RTI 

4$: TST 

CIRB 
TYPE 

5S: .WORD 

TYPE 
BR 

SHIOCT: .WORD 


(SP),-(SP) 

4(SP),2(SP> 

RO.-(SP) 

RI.-(SP) 

R2,-(SP) 

(SP)+.RO 

R0.5S 

R1 

R2 

(RO)^.-(SP) 

3S 

/r’o.(SP) 

4S 

#'7,(SP) 

4S 

R1 

R2 

R1 

R2 

R1 

R2 

f*C7.(SP) 

(SP)^.RI 

2S 

(SP)^ 

R1.12(SP) 

R2-SHI0CT 

(SP)^.R2 

CSP)^.R1 

<SP)+,RO 

(SP) + 

(R0> 

0 

.SOUES 

U 

0 


; .'PROVIDE SPACE FOR THE 

;; INPUT NIMBER 

.‘.'PUSH RO ON STACK 

.';PUSH R1 ON STACK 

.'.‘PUSH R2 ON STACK 

;;READ AN ASCI2 LINE 

.‘.‘GET ADDRESS OF 1ST CHARACTER 

.‘.‘AND SAVE IT 

.‘.‘CLEAR DATA WORD 

.‘.‘PICKUP THIS CHARACTER 
;;IF ZERO GET OUT 
;.‘MAKE SURE THIS CHARACTER 
.‘.‘IS AN OCTAL DIGIT 


;; STRIP THE ASCII JUNK 
.‘.‘ADD IN THIS DIGIT 
;;100P 

.‘.‘CLEAN TERMINATOR FROM STACK 
.‘;SAVE THE RESULT 

;.‘POP STACK INTO R2 
.‘.‘POP STACK INTO R1 
.‘.‘POP STACK INTO RO 
* ‘RETUM 

••CLEAN PARTIAL FROM STACK 
.•;SET A TERMINATOR 
:;TYPE UP THRU THE BAD CHAR. 

.‘.‘•r* ‘tR" I *tF“ 

• ‘TRY AGAIN 

••HIGH ORDER BITS GO HERE 


G 6 
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SAVE AND RESTORE R0>R5 ROUTINES 

.SBTTL SAVE AND RESTORE R0-R5 ROUTINES 


SEO 0071 


017374 

017374 

017376 

017400 

017402 

017404 

017436 

017410 

017414 

017420 

017424 

017430 


017432 
017432 
017436 
Cl 7442 
017446 
017452 
017454 
017456 
017460 
017462 
017464 
017466 


017470 010046 
017472 016^ 000002 
017476 005740 
017500 111000 


*SAVE R0-R5 
•CALL: 

* SAVRE6 



•UPON RETURN 

* 

•TOP — (♦16) 
• * 2 — (+18) 

• +4 — R5 

• ♦6— R4 

• ^8 — R3 
•♦10 — R2 

FROM SSAVREG THE 


•♦12 — R1 
•♦14 — RO 


SSAVREG: 

RO.-(SP) 

010046 

NOV 

010146 

NOV 

R1,-(SP) 

010246 

NOV 

R2,-(SP) 

010346 

NOV 

R3.-(SP) 

010446 

NOV 

R4. -(SP) 

010546 

NOV 

R5.-(SP) 

016646 000022 

NOV 

22(SP).-(SP) 

016646 000022 

NOV 

22(SP).-(SP) 

016646 000022 

NOV 

22(SP).-(SP) 

016646 000022 

NOV 

22(SP),-(SP) 

000002 

RTI 



;*RFST0ftE R0-R5 


012666 

000022 

RESREG 

SRESRE6: 

NOV 

012666 

000022 

NOV 

012666 

000022 

NOV 

012666 

000022 

NOV 

012605 


NOV 

012604 


NOV 

012603 


NOV 

012602 


NOV 

012601 


NOV 

012600 


NOV 

000002 


RTI 


.SBTTL TRAP D 

e ♦ 


(SP)*, 22 <SP) 

(SP)+,22(SP) 

(SP)*.|2(SP) 

(SP)*.22(SP) 

(SP)+.R5 

(SP)+,R4 

(SP)^,R3 

(SP)*,R2 

(SP)^,R1 

(SP)*,RO 


;;PUSH 

;;PUSH 

;;PUSH 

;;PUSH 

;;PUSH 

;;PUSH 

:;SAVE 

;;SAVE 

::SAVE 

;;SAVE 


RO ON 
R1 ON 

S ON 
ON 
R4 ON 
R5 ON 
PS OF 
PC OF 
PS OF 
PC OF 


STACK 

STACK 

STACK 

STACK 

STACK 

STACK 

MAIN FLOW 

MAIN FLOW 

CALL 

CALL 


: RESTORE PC OF CALL 
.RESTORE PS OF CALL 
;RESTORE PC OF MAIN FLOW 
.RESTORE PS OF MAIN FLOW 
;POP STACK INTO RS 
;POP STACK INTO R4 
;POP STACK INTO R3 
;POP STACK INTO R2 
;POP STACK INTO R1 
;POP STACK INTO RO 


;*ANO USE IT TO INDEX THROUGH THE TRAP TABLE FOR THE STARTING ADDRESS 
-OF THE DESIRED ^TINE. THEN USING THE ADDRESS OBTAINED IT WILL 
.-GO TO THAT ROUTINE. 


STRAP: NOV 
NOV 
TST 
NOVB 


RO.-(SP) 

2(§P).R0 

-(RO) 

(RO).RO 


;;SAVE RO 

;;GET TRAP ADDRESS 

;;8ACKUP BY 2 

;;6ET RIGHT BYTE OF TRAP 


SEO 0072 


H 6 
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TRAP DECODER 


017502 

006300 

ASL 

RO 

; .'POSITION FOR INDEXING 

017504 

016000 017524 

MOV 

$TRPAD(RO).RO 

.-.INDEX TO TABLE 

017510 

000200 

RTS 

RO 

;;G0 TO ROUTINE 


017524 

017526 

017530 

017532 

017534 

017536 


017542 

017544 

017546 

017550 

017552 

017554 


;;THIS IS USE TO HANDLE THE "GSTPRI" MACRO 


017512 011646 
017514 016666 000004 
017522 000002 


000002 


017512 
015020 
Cl 5336 
015312 
015352 
015540 


017540 016364 


016274 

016636 

016726 

017234 

017374 

017432 


$TRAP2: MOV 
MOV 
RTI 


(SP),-(SP) 

4(SP5.2(SP) 


MOVE THE PC DOWN 
MOVE THE PSU DOWN 
RESTORE THE PSW 


.S8TTL TRAP TABLE 


;*TH1S TABLE CONTAINS THE STARTING ADDRESSES OF THE ROUTINES CALLED 
;*Br THE ‘7RAP*’ INSTRUCTION. 


iTRPAD: 


ROUTINE 

.WORD 

fTYPE 

ST/POC 

f TYPOS 

STYPON 

fTYPDS 


STRAP2 

;;CALLsTYPE 

;;CALL*TYPOC 

;;CALL*TYPOS 

;;CALLsTYPON 

;;CALL»TYPDS 


TRAP+1 (104401) ^TTY TYPEOUT ROUTINE 
TRAP«2( 104402) TYPE OCTAL NUPBER (WITH LEADING ZEROS) 
TRAP43( 104403) TYPE OCTAL NUMBER (NO LEADING ZEROS) 
TRAP«4( 104404) TYPE OCTAL NUMBER (AS PER LAST CALL) 
TRAP«5( 104405) TYPE DECIMAL MfBER (WITH SIGN) 


SGTSWR :;CALLcGTSWR TRAP46( 104406) GET SOFT-SWR SETTING 


SCKSWR 

SADCHR 

SRDLIN 

SRDOCT 

SSAVRE6 

SRESRE6 


;CALL«CKSUR 

;CALL«RDCHR 

;CALL«RDLIN 

;CALL«RDOCT 

;CALL«$AVREG 

.-CALLsRESREG 


TRAP47(104407) 

TRAP410(104410) 

TRAP411(1M411) 

TRAP4l2(l54412) 

TRAP413(104413) 

TRAP414(104414) 


TEST FOR CHANGE IN SOFT-SWR 
TTY TYPEIN CHARACTER ROUTINE 
TTY TYPEIN STRING ROUTINE 
READ AN OCTAL NUMBER FROM TTY 
SAVE R0H1S ROUTINE 
RESTORE R0-R5 ROUTINE 


1 6 


SEO 0073 
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TELETYPE MESSAGES 

1 .S8TTL TELETYPE MESSAGES 


3 017556 

200 

105 

116 

ENTERA: 

4 017605 

040 

077 

111 

ADRERR: 

5 017630 

200 

120 

117 

PORTAIS: 

6 017657 

200 

120 

117 

P0RT8IS: 

7 017706 

200 

123 

131 

NOCLOCK: 

8 017753 

012 

105 

116 

TESTNO: 

9 017773 

040 

077 

111 

8ADN0: 

10 020022 

200 

012 

122 

ADDRIS: 

11 020057 

012 

105 

116 

NTRH: 

12 0201 06 

200 


1Q5 

SWTCHN: 

13 020154 

200 

123 

127 

SWTCHA: 

14 020211 

200 

123 

127 

SWTCH8: 

15 020246 

200 

124 

110 

CONTUE: 

16 020317 

200 

123 

124 

CYCLED: 

17 020337 

200 

123 

124 

CYCLEU: 


.ASCIZ <CRLF>/ENTER DRIVE ADDRESS: / 

.ASCiZ / ?iNVALlD ADDRESS/<CRLF> 

.ASCIZ <CRLF>/P0RT ’A* ADDRESS IS; / 

.ASCIZ <CRLF>/PORT *8' ADDRESS IS: / 

.ASCIZ <CRLF>/SYSTEM MUST HAVE ^L' OR 'P* CL0CK/<CRLF><LF> 

.ASCIZ <LF>/ENTER TEST f; / 

.ASCIZ / 7INVALID TEST NUMBER/<CRLF> 

.ASCIZ <CRLF><LF>aKH/RM ADDRESS (RMCS1) IS: 8 
.ASCIZ <LF>aENTER RH/RM ADDRESS: 8 
.ASCIZ <CRLF>8RETURN 'PORT SELECT’ SWITCH TO ’A/B’a 
.ASCIZ <CRLF>/SHITCH 'PORT SELECT* TO ’A’/ 

.ASCIZ <CRLF>/SHITCH 'PORT SELECT* TO *8*/ 

.ASCIZ <C.UF>/THEN PRESS ’CONTINUE* ON THE PROCESSOR/<CRLF> 

.ASCIZ <CRLF>/STOP THE DRIVE/ 

.ASCIZ <CRLF>/START THE DRIVE, THE PROGRAM WILL WAIT FOR ’MOL* TO SET/<CRLF> 


CZRNIAO RMBO DUAL 

PORT 

PT2 MACRO 

V04.00 

15- JAN-82 07:13 

TEST ERROR MESSAGES 





1 




.SBTTL TEST ER 

2 

3 020431 

104 

122 

in 

EMI: 

.ASCIZ 

4 020477 

127 

122 

117 

EM2: 

.ASCIZ 

5 020520 

120 

117 

122 

EM3: 

.Asriz 

6 020571 

104 

122 

111 

EM4; 

.ASCIZ 

7 020613 

123 

105 

122 

EM5: 

.ASCIZ 

8 020675 

124 

111 

115 

EM6: 

.ASCIZ 

9 020747 

124 

111 

115 

EM7: 

.ASCIZ 

10 021014 

122 

105 

101 

EM10 

.ASCIZ 

11 021102 

047 

107 

117 

EMIT 

.ASCIZ 

12 021147 

111 

116 

103 

EMI 2 

.ASCIZ 

13 021216 

104 

122 

111 

EMI 3 

.ASCIZ 

14 021303 

101 

124 

124 

EMU 

.ASCIZ 

15 021365 

101 

124 

124 

EMI 5 

.ASCIZ 

16 021451 

104 

122 

111 

EMU 

.ASCII 

17 021530 

123 

105 

114 


.ASCIZ 

18 021571 

104 

122 

111 

EMI 7 

.ASCIZ 

19 021654 

104 

122 

111 

EM20 

.ASCIZ 

20 021737 

123 

124 

101 

EM21 

.ASCIZ 

21 022010 

122 

105 

107 

EM22 

.ASCIZ 

22 022106 

047 

116 

105 

EM23 

.ASCIZ 

23 022201 

104 

122 

111 

EM24 

.ASCIZ 

24 022261 

122 

110 

057 

EM25 

.ASCIZ 

25 022324 

104 

122 

111 

EM30 

.ASCIZ 

26 022355 

127 

122 

117 

EM31 

.ASCIZ 

27 022423 

122 

105 

107 

EM32 

.ASCIZ 

28 022453 

103 

117 

116 

EM33 

.ASCIZ 

29 022537 

103 

101 

116 

EM34 

.ASCIZ 

30 022606 

104 

122 

111 

EM35 

.ASCIZ 

31 022673 

104 

122 

111 

EM36 

.ASCIZ 

52 022760 

122 

105 

107 

EM37 

.ASCIZ 

33 023041 

104 

122 

111 

EM40 

.ASCIZ 

34 023116 

122 

105 

107 

EM41 

.ASCIZ 


i 


SEQ 00?^. 


J 6 

AO PAGE 22 


OR MESSAGES 

/DRIVE IS NON-EXISTENT CNED* BIT SET)/ 

/WRONG DRIVE TYPE/ 

iPORT SELECT SWITCH ON DRIVE NOT IN 'A/B'i 
/DRIVE NOT ON LINE/ 

/SERIAL NUMBER READ THROUGH EACH PORT NOT THE SAME/ 

/TIMEOUT HAS NOT OCCURRED WITHIN 2 SECONDS/ 

/TIMEOUT ONE-SHOT IS LESS THAN 500 MS/ 

/READ IN PRESET DOES NOT f£T VOLUME VALID FOR THE PORT/ 

/*60' BIT RESET DURING UNLOAD COMMAND/ 

/INCORRECT STATUS DURING UNLOAD COMMAND/ 

/DRIVE DID NOT RETURN TO NEUTRAL AFTER UNLOAD COMMAND/ 
/ATTENTION BIT SET ON 'OPPOSITE PORT' AFTER UNLOAD/ 

/ATTENTION BIT NOT SET ON PORT WHICH ISSUED 'UNLOAD'/ 

/DRIVE NOT IN NEUTRAL AFTER UNLOAD, WITH *PORT/<CR><LF> 

aSELECT' SWITCH MOVED FROM *A/8' a 

/DRIVE LOCKED ON PORT 'A' BY SWITCH WHILE CYCLED UP/ 

/DRIVE LOCKED ON PORT '8' SY SWITCH WHILE CYCLED UP/ 

/STATUS INCORRECT FOR PORT AFTER CYCLE UP/ 

/REGISTER CONTENTS SEEN WHEN DRIVE SWITCHED ON 'OPPOSITE' PORT/ 
/'NED' NOT SET WHEN RMDS ACCESSED THROUGH PORT NOT SWITCHED/ 
/DRIVE SWITCHED TO LOCKED OUT PORT WHEN RELEASED/ 
aRH/RM DIDN'T RESPOND TO ADDRESSINGa 
/DRIVE NOT SEIZED BY PORT/ 

/WRONG STATUS SEEN BY THE SEIZING PORT/ 

/REGISTER CONTENTS WRONG/ 

/CONTROL BUS PARITY ERROR READING INDICATED REGISTER/ 

/CAN'T ACCESS DRIVE THROUGH EITHER PORT/ 

/DRIVE NOT IN NEUTRAL AFTER RELEASE - REQUEST NOT SET/ 

/DRIVE NOT IN NEUTRAL AFTER TIMEOUT - REQUEST NOT SET/ 
/REGISTER CONTENTS WRONG AFTER RELEASE OR TIMEOUT/ 

/DRIVE IN NEUTRAL AFTER RELEASE - REQUEST SET/ 

/REGISTER WRONG AFTER RELEASE WITH REQUEST SET/ 



K 


6 


SEQ 0075 
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TEST ERROR MESSAGES 









1 023174 

124 

105 

123 

DHI 


.ASCIZ 

/TEST » E9R PC 

PORT # 

REG ADR CONTENTS/ 

2 023245 

124 

105 

123 

0H2 


.ASCJZ 

/TEST # ERR PC 

PORT f 

REG ADR GOOD BAD/ 

3 023321 

124 

105 

123 

0H5 


.ASCIZ 

/TEST # ERR PC 

REG ADR 

PORT A PORT B/ 

4 023370 

124 

105 

123 

DH6 


.ASCIZ 

/1EST » ERR PC 

PORT #/ 


5 023417 

124 

105 

123 

0H7 


.ASCIZ 

/TEST # ERR PC 

PORT P 

TIME (IN NS)/ 

6 023464 

040 

040 

040 

0H13 

.ASCII 

/ 

SEIZE/<CRLF> 

7 023512 

124 

105 

123 



.ASCIZ 

/TEST » ERR PC 

PORT #/ 


8 023541 

040 

040 

040 

DHI 4 

.ASCII 

/ 

SEIZE 

ERROR/<CRLF> 

9 023577 

124 

105 

123 



.ASCIZ 

/TEST # ERR PC 

PORT » 

PORT » REG ADR CONTENTS/ 

10 023660 

124 

105 

123 

0H17 

.ASCJZ 

/TEST » ERR PC/ 



11 023677 

040 

040 

040 

DH24 

.ASCII 

/ 

LOCKED 

SWITCHED TO/<CRLF> 

12 023743 

124 

t05 

123 



.ASCJZ 

/TEST » ERR PC 

PORT A 

PORT #/ 

13 024002 

044 

122 

115 

DH25. 

.ASCJZ 

/SRMADR/ 



14 024011 

040 

040 

040 

DH30. 

.ASCII 

/ 

SEIZE 

ERROR/<CRLF> 

15 024047 

124 

105 

123 



.ASCJZ 

/TEST # ERR PC 

PORT # 

PORT # REG ADR GOOD BAD/ 

16 024133 

040 

040 

040 

0H34 

.ASCII 

/ 

PORT A 

PORT B/<CRLF> 

17 024172 

124 

105 

123 



.ASCIZ 

/TEST # ERR PC 

RMDS 

RMDS/ 

18 024227 

040 

040 

040 

0H35 

.ASCII 

/ 

RELSNG 

ERROR/<CRLF> 

19 024265 

124 

105 

123 



.ASCIZ 

/TEST # ERR PC 

PORT # 

PORT #/ 

20 024324 

040 

040 

040 

DH37. 

.ASCII 

/ 

RELSNG 

ERROR/<CRLF> 

21 024362 

124 

105 

123 



.ASCIZ 

/TEST # ERR PC 

PORT # 

PORT « REG ADR GOOD BAD/ 

22 024446 

040 

040 

040 

0H40 

.ASCII 

/ 

RELSNG 

ROSTNG/<CRLF> 

23 024505 

24 

25 

26 

124 

105 

123 



.ASCIZ 

/TEST # ERR PC 

PORT # 

PORT #/ 




.EVEN 




27 024544 

001242 

001116 

001234 

DTI 


.WORD 

TSTNUM.SERRPC.PTNBR.SBDADR.SBDDAT.O 

28 024560 

001242 

001116 

001234 

DT2 


.WORD 

TSTNUn.fERRPC .PTNBR .SBDADR .SGDDAT .SBDDAT ,0 

29 024576 

001242 

001116 

001122 

0T5 


.WORD 

TSTNUN.SERRPC .SBDADR.SGDDAT.SBDDAT ,0 

30 024612 

001242 

001116 

001234 

DT6 


.WORD 

TSTNUM,$ERRPC.PTKBR.0 


31 024622 

001242 

001116 

001234 

DT7 


.WORD 

TSTNUN.SERRPC .PTfCR.TINE 
TSTNUN.SERRPC.SEIZPT.O 

.0 

32 024634 

001242 

001116 

001236 

DT13 

.WORD 


33 024644 

001242 

001116 

001236 

0T14 

.WORD 

T S TNUN , SE RRPC . S E 1 ZP T , P TNBR . SBD ADR . SBDD A T . 0 

34 024662 

001242 

oori6 


DTI 7 

.WORD 

TSTNUN.SERRPC.O 



35 024670 

001242 

001.16 

000000 

001236 

DT24 

.WORD 

TSTNUN.SERRPC .SEI ZPT .PTNBR .0 

36 024702 

001272 


DT25 

.WORD 

SIWADR.O 



37 024706 

001242 

001116 

001236 

DT30 

.WORD 

TSTNtfl«SERRPC.SEIZPT,PTNBR.SBDADR.$GDDAT,$BDDAT.O 
TSTNUH.URRPC ,$THP2,$TNP3.0 

38 024726 

001242 

001116 

001170 

DT34 

.WORD 

39 024740 

001242 

001116 

001236 

DT35 

.WORD 

TSTNUM«SERRPC,SEIZPT.PTNBR.O 

40 024752 

41 

42 024764 

001 242 

001116 

001236 

DT40 

.WORD 

TSTNUPI, lERRPC . SE I ZPT . OPPRT . 0 

000 

000 

001 

DF1 


.BYTE 

0.0.1,0,0 



43 024771 

000 

000 

001 

DF2 


.BYTE 

O.OJ.0,0.0 



44 024777 

000 

000 

000 

DF5 


.BYTE 

O.O.O.O.O 



45 025004 

000 

000 

001 

DF6 


.BYTE 

0.0.1 



46 025007 

000 

000 

001 

DF7 


.BYTE 

0.0.1. 1 



47 025013 

000 

000 

001 

DF14 

.BYTE 

0.0,1. 1.0.0 



48 025021 

000 

000 


DF17 

.BYTE 

0,0 



49 025023 

000 



DF25 

.BYTE 

0 



50 025024 

000 

000 

001 

DF30 

.BYTE 

0,0,1. 1.0.0.0 



51 025033 

000 

000 

000 

DF34 

.BYTE 

o.o.o.o 



52 




.EVEN 
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SEQ 0076 


CZRMAO HM80 DUAL PORT PT2 MACRO '.OA.OO 
CONSTANTS. TABLES. ETC 

1 


2 

3 


4 

025040 

003112 

7 025042 

004424 


025044 

005206 


025046 

005770 


025050 

006706 


025052 

007624 


025054 

010672 


025056 

012002 

8 



9 



10 



11 

025060 

001 

12 

025061 

002 

13 025062 

004 

14 

025063 

010 

15 

025064 

020 

16 

025065 

040 

17 025066 

100 

18 025067 

200 

19 



22 

23 

24 

025070 

00001 1 


000200 


15- JAN-82 07:13:A0 PAGE 2A 


.S8TTL CONSTANTS. TABLES. ETC 

; TABLE OF TEST STARTING ADDRESSES 

TSTADR: .WORD TST1 
.WORD TST2 
.WORD TST3 
.WORD T5U 
.WORD TST5 
.WORD TST6 
.WORD TST7 
.WORD TST10 

.'ATTENTION BIT TABLE 

ATABIT: .BYTE 1 
.BYTE 2 
.BYTE A 
.BYTE 10 
.BYTE 20 
.BYTE 40 
.BYTE 100 
.BYTE 200 

MAXTN: .WORD 11 

.END 200 


STARTING ADDRESS OF TEST 1 
STARTING ADDRESS OF TEST 2 
STARTING ADDRESS OF TEST 3 
STARTING ADDRESS OF TEST 4 
STARTING ADDRESS OF TEST 5 
STARTING ADDRESS OF TEST 6 
STARTING ADDRESS OF TEST 7 
STARTING ADDRESS OF TEST 10 


ATTENTION BIT FOR DRIVE 0 
ATTENTION BIT FOR DRIVE 1 
ATTENTION BIT FOR DRIVE 2 
ATTENTION BIT FOR DRIVE 3 
ATTENTION BIT FOR DRIVE 4 
ATTENTION BIT FOR DRIVE 5 
ATTENTION BIT FOR DRIVE 6 
ATTENTION BIT FOR DRIVE 7 

iMAXimfl TEST NUMBER 


M 

CZRNIAO R«80 DUAL PORT PT2 MACRO V04.00 15-JAN-82 07:13:40 PAGE 24>1 
SYMBOL TABLE 


ADDRIS 020022 

CPSAVE 

014454 

DT14 


024644 

ADRERR 017605 

CR 

s 

000015 

DT17 


024662 

AOE = 001000 

CRLF 

s 

000200 

DT2 


024560 

ASR1 001232 

CYCLED 

020317 

DT24 


024670 

ATA = 100000 

CYCLEU 

020337 

DT25 


024702 

ATABIT 025060 

DCK 

s 

100000 

DT30 


024706 

ATO = 000001 

DDISP 

r 

177570 

DT34 


024726 

ATI = 000002 

DEI 

r 

00U040 

DT35 


024740 

AT2 = 000004 

DFF20 

s 

000002 

DT40 


024752 

AT3 = 000010 

DF1 


024764 

DT5 


024576 

AT4 = 000020 

DF14 


025013 

DT6 


024612 


DF17 


025021 

DT7 


024622 


DF2 


024771 

OVA 

5 

004000 

AT7 = 000200 

DF25 


025023 

DVC 

s 

000200 

A16 = 000400 

DF30 


025024 

ECH 

s 

000100 

A17 = 001000 

DF34 


025033 

ECI 

s 

004C00 

BAONO 017773 

DF5 


024777 

EMTVEC 

s 

000030 

BAOTMO 001706 

DF6 


025004 

EMI 


020431 

BAI = 000010 

DF7 


025007 

EM10 


021014 

BITO = 000001 

DHI 


023174 

EM11 


021102 

BITOO = 000001 

DH13 


023464 

EMI 2 


021147 

BIT01 = 000002 

DHI 4 


023541 

EMI 3 


021216 

BIT02 = 000004 

DHI 7 


023660 

EMI 4 


021303 

BIT03 = 000010 

DH2 


023245 

EMI 5 


021365 

BIT04 s 000020 

DH24 


023677 

EMI 6 


021451 

BIT05 - 000040 

DH25 


024002 

EMI 7 


021571 

BIT06 - 000100 

DH30 


024011 

EM2 


020477 

B1T07 = 000200 

DH34 


024133 

EM20 


021654 

BIT08 = 000400 

0H35 


024227 

EM21 


021737 

B1T09 = 001000 

0H37 


024324 

EM22 


022010 

B1T1 :: 000002 

0H40 


024446 

EM23 


022106 

BIT10 = 002000 

OHS 


023321 

EM24 


022201 

B1T11 = 004000 

0H6 


023370 

EM25 


022261 

BIT12 = 010000 

0H7 


023417 

EM3 


020520 

BIT13 = 020000 

01GB 

s 

000004 

EM30 


022324 

B1T14 = 040000 

OISPLA 

001142 

EM31 


022355 

BIT15 = 100000 

OISPRE 

000174 

EM32 


022423 

BIT2 = 000004 

OLT 

s 

100000 

EM33 


022453 

BIT3 = 000010 

0L64 

s 

000020 

EM34 


022537 

BIT4 = 000020 

OMO 

r 

000001 

EM35 


022606 

BITS = 000040 

OPE 

s 

000010 

EM36 


022673 

B1T6 = 000100 

OPR 

s 

000400 

EM37 


022760 

BIT7 = 000200 

ORQ 

s 

004000 

EM4 


020571 

BITS = 000400 

DRY 

s 

000200 

EM40 


02^41 

BIT9 = 001000 

OSUR 

r 

177570 

EM41 


023116 

BPTVEC= 000014 

DTE 

s 

010000 

EM5 


020613 

CHANGE 002764 

OTOO 

s 

000001 

EM6 


020675 

CHGAOR 001270 

DT01 

s 

000002 

EM7 


020747 

CKCLK 013336 

DT02 

s 

000004 

ENTERA 

017556 

CKCLKI 013406 

0T03 

s 

000010 

ERR 

r 

040Q00 

CKCLK2 013450 

0T04 

= 

000020 

ERROR 

r 

104000 

CKCLK3 013460 

0T05 

s 

000040 

ERRVEC 

ss 

000004 

CKERR 001244 

0T06 

s 

000100 

EXEC 


002610 

CXSUR = 104407 

0T07 

s 

000200 

FER 

r 

000020 

CLOCK 013470 

0T08 

r 

000400 

FMT16 

s 

010000 

CLR = 000040 

DTI 


024544 

FO 

s 

000002 

CONTUE 020246 

0T13 


024634 

FI 

= 

000004 


SEO 0077 


F2 


P0RT81 


017657 

F3 


PORTC 


001230 

F4 = 


PRO 

= 

000000 

GO = 


PR1 


000040 

GRV = 


PR2 

= 

000100 

GTSWR = 

104406 

PR3 


000140 

HCE = 

000200 

PR4 


000200 

HCI = 

002000 

PR5 

= 

000240 

HCRC = 

000400 

PR6 


000300 

HT = 

000011 

PR7 

= 

000340 

lAE = 

002000 

PS 


177776 

I6SAVE 

014456 

PSEL 

5 

002000 

IE = 

000100 

PSW 

s 

177776 

ILF = 

000001 

PTN8R 


001234 

ILR = 

000002 

PURVEC 

= 

000024 

IOTVEC= 

000020 

RDCHR 


104410 

IR 

000100 

RDLIN 

s 

104411 

IVC = 

010000 

RDOCT 

r 

104412 

KV8CTL 

001266 

RDY 

s 

000200 

L8C = 


RELERR 

001250 

L8T = 


RELOK 

s 

000001 

LF 


RESREG^ 

104414 

LSC = 


RESVEC= 

000010 

MAXTN 


RMAS 

s 

000016 

MCPE = 


RM8A 

s 

000004 

MDPE = 


RMCS1 

s 

000000 

MOH s 


RMCS2 

s 

000010 

M < » 

rn/*. 


RMOA 

s 

000006 

mvf s 

001000 

RM08 

s 

000022 

NBA r 

100000 

RMDC 

s 

000034 

NED - 

010000 

RMDS 

s 

000012 

NEM s 

004000 

Rn>T 

s 

000026 

NQATA • 


RMEC1 

r 

000044 

NOCLOC 

017706 

RMEC2 

r 

000046 

NOSEIZ 

001246 

RMER1 

= 

000014 

NTRH 

020057 

RMER2 

s 

000042 

OFD = 

000200 

RMLA 

r 

000020 

OPE = 

020000 

RMMR1 

s 

000024 

OPI = 

020000 

RMMR2 

s 

000040 

OPPRT 

001240 

RMOF 

£ 

000032 

OR = 

000200 

RHR 

s 

000004 

PAR = 

000010 

RMSN 

s 

000030 

PAT = 

000020 

RMUC 

s 

000002 

PFECH 

014656 

R6 

=1000006 

PFECH1 

014666 

R7 

=1000007 

PFECH2 

014750 

SAVRE&: 

104413 

PFECH3 

015002 

SC 

s 

100000 

PFECH4 

015012 

SCOPE 

s 

000004 

PFTSTN 

015016 

SCO 

r 

000100 

PGE = 

|i 1 ^ 

SCI 

s 

000200 

PGM = 


SC2 

= 

000400 

PIP = 
PIRQ = 


SC3 

SC4 


001000 

002000 

PIRQVE= 

E * ^ 

SEIZPT 

001236 

PORTA 

E * £ 

SKI 

r 

100000 

PORTAI 

017630 

STACK 


001100 

P0RT8 

001226 

START 


001766 
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symbol table 


STARTl 
START2 
STKLMT= 
STOP 
SUR 
SUREG 
SUTCHA 
SWTCHB 
SWTCHN 
SUO = 
SUOO = 
SWOT = 
SW02 = 
SU03 = 
SW04 = 
SUOS = 
SU06 = 
SW07 = 
SUOS - 
SW09 = 
SU1 = 
SU10 = 
SUIT = 
SU12 = 
SW13 = 
SU14 = 
SU1S = 
SU2 = 
SW3 = 
SU4 = 
SW5 = 
SU6 - 
SW7 = 
SU8 = 
SW9 = 
TAP = 
TBlTVEs 
TESTNO 
TEST1 
TESTIO 
TEST2 


001776 

002004 

177774 

014104 

001140 

000176 

020154 

020211 

020106 

000001 

000001 

000002 

000004 

000010 

000020 

000040 

000100 

000200 

000400 

001000 

000002 

002000 

004000 

010000 

020000 

040000 

100000 

000004 

000010 

000020 


S 000100 


r 001000 

= 040000 
= 000014 
I 017753 
003150 
012040 
004462 


TEST3 

TEST4 

TESTS 

TEST6 

TEST7 

TIME 

TIMEA 

TIMEAP 

TIMEB 

TIME8P 

TKVEC = 

TOLER 

TPVEC = 

TRAPVE= 

TRE = 

TRTVEC= 

TSTADR 

TSTNUM 

TST1 

TST1AA 

TST10 

TST11 

TST2 

TST3 

TST4 

TST5 

TST6 

TST7 

TYPOS = 

TYPE = 

TYPOC = 

TYPON s 

TYPOS = 

UNS = 

UPE = 

UO = 

U1 

U3 = 
VV = 
VVSET = 
UATCH 


005244 

006026 

006744 

007662 

010730 

001252 

001256 

001260 

001262 

001264 

000060 

013522 

000064 

000034 

040000 

000014 

025040 

001242 

003112 

003074 

012002 

013106 

004424 

005206 

005770 

006706 

007624 

010672 

104405 

104401 

104402 

104404 

104403 

040000 

020000 

000001 

000002 

000004 

000100 

000001 

001254 


WCE = 

WCF = 

WLE = 

URL = 

SAUTOB 

SBDADR 

SBDDAT 

$6ELL 

SCHARC 

SCKSUR 

SCMTAG 

$CM1 = 

$CM2 = 

SCM3 = 

$CM4 = 

SCNTLC 

SCNTLG 

SCNTLU 

SCRLF 

$D8LK 

SDOAGN 

S0T8L 

SENOAD 

SENDCT 

SENULL 

$EOP 

SEOPCT 

SERFLG 

SERMAX 

SERROR 

SERRPC 

SERRTB 

SERRTY 

SERTTL 

SESCAP 

SFILLC 

SFILLS 

SGOAOR 

SGDDAT 

$GET42 


040000 
000040 
004000 
004000 
001134 
001122 
001126 
001202 
015306 
016274 
001100 
00000 i 
000002 
000001 
000005 
017172 
017204 
017177 
001207 
015754 
013326 
015744 
013316 
013154 
013332 
013110 
013146 
001103 
001115 
014132 
001116 
001276 

ouUo 

001112 

001200 

001156 

001155 


001120 

001124 

013306 


. ABS. 025072 000 

000000 001 

ERRORS DETECTED: 0 

VIRTUAL MEMORY USED: 54784 UORDS ( 214 PAGES) 
DYNAMIC MEMORY AVAILABLE FOR 71 PAGES 
.A : CZRNIA/C-A : CZRNI A . DOC , CZRNI A, SYSMAC/M 
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SEQ 0078 


SGTSUR 016364 

SSVPC ^ 000210 

$6T42P 01330? 

SSUR = 166000 

$HD = 000000 

SSURMK: 000000 

SHI OCT 017372 

STINES 001176 

SICNT 001104 

STKB 001146 

SINTAG 001135 

STKCNT 015764 

SITEMB 001114 

STKINT 015774 

SLF 001210 

STKQEN* 015773 

SLKCS8 001214 

STKOIN 015766 

SLKCSR 001212 

STKQOU 015770 

SLKS 001220 

STXOSR 015772 

SLLVEC 001222 

STKS 001144 

SLPADR 001106 

STKSRV 016044 

SLPERR 001110 

STMPO 001164 

SLPVEC 001216 

STMP1 001166 

SMNEU 017222 

STMP2 001170 

SMSUR 017211 

STMP3 001172 

SMXCNT 014102 

STMP4 001174 

SNULL 001154 

STN = 000012 i 

SNUTST= OOOOQO 

STPB 001152 

SOCNT 015534 

STPFLG 001157 

SOMODE 015536 

STPS 001150 

SOVER 014066 

STRAP 017470 

SPASS 001100 

STRAP2 017512 

SQUES 001206 

STRP = 000015 

SRDCHR 016636 

STRPAD 017524 

SRDLIN 016726 

STSTFff 001102 

SRDOCT 017234 

STTYIN 017162 

SRDSZ « 000010 

STYPOS 015540 i 

SREGAD 001160 

STYPE 015020 1 

SRE60 001162 
SRESRE 017432 

STYPEC 015170 i 

STYPEX 015310 

SRMADR 001272 

STYPOC 015336 

SRMVEC 001274 

STYPON 015352 

SRTNAD 013330 

STYPOS 015312 

SSAVRE 017374 

SXOFF = 000023 

SSCOPE 013550 

SXON = 000021 

SSETUP= 000127 

SXTSTR 013572 

SSTUP = 177777 

SS6ET4S 000000 

SSVLAD 014056 

SOFILL 015535 




SEO 0079 


9-157* 

9-216* 

9-307* 

9-440* 

9-157* 

9-216* 

9-307* 

9-440* 

9-165* 

9-216* 

9-439* 

9-440* 

9-165* 

9-216* 

9-439* 

9-440* 

9-165* 

9-274* 

9-439* 

23-27 

9-165* 

9-274* 

9-439* 

23-28 

9-165* 

9-274* 

9-439* 

23-29 

9-157 

9-165* 

9-216* 

9-275* 

9-439 

9-440 

23-37 

9-157 

9-165* 

9-216* 

9-275* 

9-439 

9-440 

9-157* 

9-172* 

9-216* 

9-275* 

9-439 

9-440 

9-157* 

9-173 

9-216* 

9-275* 

9-439 

9-440 

9-165 

9-215 

9-274 

9-275* 

9-439 

9-440 

9-165 

9-215 

9-274 

9-275* 

9-439 

9-440 

9-165 

9-215* 

9-274* 

9-302* 

9-439 

9-440* 

6-0 

6-0 

6-0 

6-0# 

6-0# 

6-0# 

6-0# 

9-23 







13-1 

14-1 

14-1 

14-1 

14-1 

15-1 

15-i 

12-1 

12-1 

12-1* 

13-1 

13-1 

13-1* 


14-1 

23-27 

23-28 

23-29 

23-30 

23-31 

23-32 

9-157 

9-165* 

9-216* 

9-275 

9-439* 

9-440* 

9-157 

9-165* 

9-^7?! 

9-439* 

9-440* 

9-157* 

9-170* 

9-274 

9-275* 

9-439* 

9-440* 

9-157* 

9-173 

9-274 

9-275* 

9-439* 

9-440* 

9-165 

9-215 

9-274 

9-302 

9-439* 

9-440* 

9-165 

9-215 

9-274 

9-302 

9-439* 

9-440* 

9-165 

9-215 

9-274 

9-302* 

9-439* 

23-28 
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23-29 

23-37 



SGET42 

10-1# 




SGT42P 

10-1 

10-1# 



SGTSWR 

18-1# 

20-2 

20-2 


SHD 

4-510 

4-510 

4-510 


SHIOCT 

19-1# 

19-1* 



SICNT 

6-0# 

9-92* 

12-1 

12-1 

SINTAG 

6-0# 

18-1 

18-1 

18-1 

ilTEHB 

6-0# 

13-1 

13-1 

13-1 

SLF 

6-0# 

13-1 

13-1 

15-1 

SLKCSB 

7-0# 

11-11* 



SLKCSR 

7-0# 

11-7 

11-12* 


SLKS 

7-0# 

11-16 

11-20* 


$LLVEC 

7-0# 

11-17 



SLPADR 

6-0# 

12-1* 

9-23* 

9-76* 

9-137* 

SLPERR 

6-0# 

9-23* 

9-77* 

9-137* 

SLPVEC 

7-0# 

11-8 



SFUIL 

9-23 

9-28 

12-1 

13-1 

SMNEU 

18-1 

18-1# 



SMSWR 

18-1 

18-1# 



SnXCNT 

12-1 

12-1 

12-1 

12-1# 

SNULL 

6-0# 

15-1 

15-1 

15-1 

SNUTST 

9-137 

9-137 

9-137# 

9-137# 


9-274# 

9-274# 

9-275 

9-275 


9-440 

9-440 

9-440# 

9-440# 

SOCNT 

16-1# 

16-1* 

16-1* 


SONODE 

16-1 

16-1# 

16-1* 

16-1* 

SOVER 

12-1 

12-1 

12-1 

12-1# 

SPASS 

6-0# 

9-74* 

10-1 

10-1 

SQUES 

6-0# 

13-1 

13-1 

15-1 

SR2A 

20-2 




SRDCHR 

18-1# 

20-2 

20-2 


SRDOEC 

20-2 




SROLIN 

18-1# 

20-2 

20-2 


SRDOCT 

19-1# 

20-2 

20-2 


SRDSZ 

18-1 

18-1# 



SREGO 

6-0# 




»RE6AD 

6-0# 




SRESRE 

20-1# 

20-2 



SRFMDR 

7-0# 

9-68 

9-102 

9-109* 

SRffVEC 

7-0# 




SRTNAD 

10-1# 




SSAVRE 

20-1# 

20-2 

20-2 


fSCOPE 

9-23 

12-1# 



fSETUP 

4-699 

4-699 

4-699 

4-699 


9-23 

9-23 

9-23 

9-23 


12-1 

13-1 

13-1 

13-1 

fSTUP 

4-699 

4-699# 

4-699 

4-699 

4-699 

SSVLAO 

12-1 

12-1# 



SSVPC 

5-5 

5-5# 



SSUR 

4-506# 

4-510 

4-511 

4-511 


9-23 

9-23 

9-23 

9-23 


10-1 

10-1 

10-1 

10-1 


12-1 

12-1 

12-1 

12-1 
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12-1 

18-1 

13-1 

15-1 

12-1* 

18-1* 

13-1* 

18-1 

12-1* 

13-1* 

18-1 

1 1 

19-1 

9-215* 

9-216* 

9-274* 

9-275* 

9-295* 

9-215* 

9 '21 6* 

9-274* 

9-275* 

9-295* 

15-1 





9-215 

9-275# 

9-444# 

9-215 

9-275# 

9-215# 

9-295 

9-215# 

9-295 

9-216 

9-295# 

16-1* 

16-1* 




V/IO 

1 1 

10-1* 

18-1 

10-1* 

18-1 

12-1 

18-1 

12-1 

18-1 


9-112 

9-134 

23-36 



4-699 

4-699# 

4-699# 

4-699# 

4-699# 

9-23 

9-23 

9-23 

9-23 

9-23 

13-1 

18-1 

18-1 

18-1 

18-1 

4-699 

4-699# 

4-699# 

4-699# 

4-699# 


4-511 

4-511 

4-511 

4-511 

4-511 

9-137 

9-215 

9-216 

9-274 

9-275 

11-48# 

12-1 

12-1 

12-1 

12-1 

12-1 

12-1 

12-1 

12-1 

13-1 


19-1 


9-439* 9-440* 12-1 12-1 12-1 

9-439 9-439* 9-440 9-440* 


9-216 9-216# 9-216# 9-274 9-274 
9-295# 9-439 9-439 9-439# 9-439# 


12-1 

19-1 19-1 19-1 


4-699# 

4-699# 

9-23 

9-23 

9-23 

9-28 

18-1 

9-28 

9-28 

10-1 

10-1 

4-699# 

4-699# 

4-699# 

4-699# 

4-699# 


4-511 

6-0 

6-0 

6-0 

9-23 

9-295 

9-439 

9-440 

9-444 

10-1 

12-1 

12-1 

12-1 

12-1 

12-1 

15-1 

13-1 

13-1 

13-1 

13-1 


SEQ 0081 
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SSURMK 

STESTN 

13- 1 

12-1 

14- 1 

13-1 

13-1 

13-1 

STiMES 

6-OA 

9-23* 

9-137* 

9-215* 

12-1 

12-1 

12-1* 

12-1* 

STKB 

6-0# 

15-1 

15-1 

18-1 

STKCNT 

18-1 

18-1 

18-1# 

18-1* 

STKINT 

9-29 

9-72 

18-1 

18-1 

STKQEN 

18-1 

18-1 

18-1# 

18-1* 

STKQIN 

18-1 

18-1 

18-1# 

$TKQOU 

18-1 

18-1 

18-1# 

18-1* 

$TKQSR 

18-1 

18-1 

18-1 

18-1* 

STKS 

STKSRV 

6-0# 

18-1 

15-1 

18-1# 

15-1 

18-1 

STMPO 

6-0# 

9-150 

9-150 

9-150* 

9-165* 

9-165* 

9-165* 

9-165* 


9-216 

9-216 

9-216 

9-216* 


9-274* 

9-275 

9-275 

9-275 


9-307 

9-307 

9-307 

9-307* 


9-439* 

9-440* 

9-439* 

9-439* 

9-440 

STMP1 

6-0# 

9-215 

9-215 

9-215* 

9-274* 

9-307 

9-274* 

9-307* 

9-275 

9-307* 

9-275 

STHP2 

6-0# 

9-215 

9-215 

9-215 

9-274 

9-274 

9-274 

9-274* 


9-302 

9-302* 

9-302* 

9-307 

STMP3 

6-0# 

9-215 

9-215 

9-215 

9-274 

9-274 

9-274 

9-274* 


9-302 

9-302* 

9-302* 

9-307 

STMP4 

6-0# 

9-150 

9-150 

9-150* 

9-165* 

9-165* 

9-165* 

9-165* 


9-439 

9-439* 

9-439* 

9-439* 


9-440* 

9-440* 

9-440* 

9-440* 

STN 

4-507# 

4'510 

9-137 

9-137 

9-274 

9-274 

9-274 

9-274# 


9-439 

9-439 

9-439# 

9-440 

STPB 

6-0# 

15-1 

15-1 

15-1* 

fTPFLG 

6-0# 

15-1 

15-1 

15-1 

fTPS 

STRAP 

STRAP2 

6-0# 

9-23 

20-2 

15-1 

20-2# 

20-2# 

15-1 

15-1 

STRP 

20-2 

20-2 

20-2 

20-2 

20-2 

20-2 

20-2 

20-2 


20-2 

20-2 

20-2 

20-2 


20-2 

20-2 

20-2 

20-2 

STRPAO 

20-2# 

20-2 

20-2# 

20-2# 

20-2# 

20-2# 

STSTFM 

6-0# 

9-137* 

9-215* 

9-216* 

12-1* 

13-1 

13-1 

13-1 

STTYIN 

STrPBN 

18-1 

20-2 

18-1 

18-1 

18-1 

STYPOs 

17-10 

20-2 

20-2 


STYPE 

15-1# 

20-2 

20-2 

15-1# 

STYPEC 

15-1 

15-1 

15-1 

STYPEX 

15-1 

15-1 

15-1# 
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13-1 


9-216* 

9-274* 

9-275* 

9-295* 

9-439* 

18-1 

18-1 

18-1 

18-1 

18-1 

18-1* 

18-1* 




18-1# 





18-1* 

18-1* 

18-1* 



18-1* 

18-1* 




18-1 

18-1 

18-1 

18-1 

18-1* 

9-150* 

9-150* 

9-150* 

9-165 

9-165 

9-165* 

9-215 

9-215 

9-215 

9-215 

9-216* 

9-216* 

9-216* 

9-274 


9-275 

9-275* 

9-275* 

9-275* 

9-275* 

9-307* 

9-439 

9-439 

9-439 

9-439 

9-440 

9-440 

9-440 

9-440* 

9-440* 

9-215* 

9-216 

9-216 

9-216* 

9-216* 

9-275 

9-275* 

9-275* 

9-275* 

9-275* 

9-215 

9-215* 

9-215* 

9-216 

9-216 

9-274* 

9-275 

9-275 

9-275 

9-275 

9-307 

9-307 

9-307 

9-307* 

9-307* 

9-215 

9-215* 

9-215* 

9-216 

9-216 

9-274* 

9-275 

9-275 

9-275 

9-275 

9-307 

9-307 

9-307 

9-307* 

9-307* 

9-150* 

9-150* 

9-150* 

9-165 

9-165 

9-165* 

9-215 

9-215* 

9-215* 

9-216 

9-439* 

9-439* 

9-439* 

9-439* 

9-439* 

9-440* 

9-440* 

9-440* 

9-215 

9-215 

9-137 

9-137# 

9-215 

9-275 

9-275 

9-275 

9-275# 

9-295 

9-440 

9-440 

9-440# 

9-444 

9-444 


20-2 

20-2 

20-2 

20-2 

20-2 

20-2 

20-2 

20-2 

20-2 

20-2 

20-2 

20-2 

20-2 

20-2 

20-2 

20-2 

20-2# 

20-2 

20-2# 

20-2# 

20-2# 

9-274* 

18-1 

18-1 

9-275* 

14-1 

18-1# 

9-295* 

9-439* 

9-440* 


9-439* 

9-440* 

9-440* 

10-1* 

12-1 

18-1 1 

18-1* 

18-1* 

18-1* 

18-1* 

18-1* 

9-165 

9-165 

9-165* 

9-165* 

9-165* 

9-215* 

9-215* 

9-215* 

9-215* 

9-216 

9-274 

9-274 

9-274* 

9-274* 

9-274* 

9-302 

9-302 

9-302 

9-302* 

9-302* 

9-439* 

9-439* 

9-439* 

9-439* 

9-439* 

9-440* 

9-440* 

9-440* 

9-440* 

9-440* 

9-274 

9-274 

9-274 

9-274* 

9-274* 

9-302 

9-302 

9-302* 

9-302* 

9-307 

9-216 

9-216 

9-216* 

9-216* 

9-274 

9-275* 

9-275* 

9-302 

9-302 

9-302 

23-38 

9-216 

9-216 

9-216* 

9-216* 

9-274 

9-275* 

9-275* 

9-302 

9-302 

9-302 

23-38 

9-165 

9-165 

9-165* 

9-165* 

9-165* 

9-216* 

9-216* 

9-439 

9-439 

9-439 

9-440 

9-440 

9-440 

9-440 

9-440* 

9-215# 

9-216 

9-216 

9-216 

9-216# 

9-295 

9-444# 

9-295 

24-20 

9-295# 

9-439 

9-439 

20-2 

20-2 

20-2 

20-2 

20-2 

20-2 

20-2 

20-2 

20-2 

20-2 

20-2 

20-2 

20-2 

20-2 

20-2 

20-2# 

20-2# 

20-2# 

20-2# 

20-2# 

10-1* 

12-1 

12-1 

12-1 

12-1 


I 


SEQ 0082 



9-274 9-274 9-274 9-274 9-275 

9-307 9-307 9-439 9-440 



7 


SEQ 0083 


F 
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ctcCLr.1 

11-5 

11-14# 






CKCLK2 

n-15 

11-22# 






CKCLK3 

11-13 

11-21 

11-24# 





CKERR 

7-0# 

9-150 

9-165* 

9-150 

9-150* 

9-150* 

9-150* 

9-150* 


9-165* 

9-165* 

9-165* 

9-165* 

9-215* 

9-215* 


9-439* 

9-439* 

9-439* 

9-4a0* 

9-440* 

9-440* 

9-440* 

CKSUR 

12-1 

13-1 

13-1 

20-2# 




CLOCK 

11-9 

11-18 

11-29# 





CLR 

4-541# 

9-139 

9-150 

9-150 




CONTUE 

9-299 

9-304 

21-15# 



13-1 

13-1 

CPSAVE 

12-1 

j2-1 

12-1 

12-1* 

12-1* 

CR 

4-513# 

15-1 

15-1 

22-16 




CRLF 

4-513# 

9-6 

9-28 

9-28 

15-1 

15-1 

21-16 

21-3 

21-12 

21-13 

21-14 

21-15 

21-15 

21-17 


23-20 

23-22 






CYCLED 

9-439 

9-439 

9-440 

9-440 

21-16# 



CYCLEU 

9-439 

9-439 

9-440 

9-440 

21-17# 



DCK 

4-604# 







001 SP 

4-513# 

6-0 

9-23 





0E1 

4-575# 






8-120 

0F1 

8-7 

8-21 

8-56 

8-63 

8-70 

8-91 

0F14 

8-84 

23-47# 






0F17 

8-106 

8-113 

23-48# 





0F2 

8-14 

8-28 

8-171 

8-178 

23-43# 



OF25 

8-148 

23-49# 


23-50# 




OF 30 

8-164 

8-213 

8-227 




OF 34 

8-192 

23-51# 






0F5 

8-35 

23-44# 






0F6 

8-42 

8-77 

8-99 

23-45# 




0F7 

8-49 

8-141 

8-199 

8-206 

8-220 

25-46# 


DFF20 

4-571# 






8-118 

ONI 

8-5 

8-19 

8-54 

8-61 

8-68 

8-89 

ONI 3 

8-75 

8-97 

23-6# 





ONI 4 

8-82 

23-8# 






W17 

8-104 

8-111 

23-10# 


23-2# 



0N2 

8-12 

8-26 

8-169 

8-176 



0H24 

8-139 

23-11# 





0N25 

8-146 

23-13# 






ON30 

8-162 

8-225 

23-14# 





0N34 

8-190 

23-16# 






0N3S 

8-197 

8-204 

23-18# 





0N37 

8-211 

25-20# 






0N40 

8-218 

23-22# 






0N5 

8-33 

23-3# 






0N6 

8-40 

23-4# 






0N7 

8-47 

23-5# 






OJGB 

4-572# 







OISPLA 

6-0# 

9-23* 

9-23* 

12-1* 

13-1* 



OISPRE 

5-1# 

9-23 






0L64 

4-574# 







OLT 

4-551# 







Dm 

4-608# 







OPE 

4-650# 







OPR 

4-578# 

9-440 

9-165 

9-165 

9-215 

9-215 

9-216 

9-216 

ORQ 

4-635# 








9-157* 

9-216* 

9-440* 

9-157* 

9-216* 

9-440* 

9-157* 

9-439* 

9-440* 

9-157* 

9-439* 

9-440* 

9-165* 

9-439* 

9-165* 

9-439* 

9-165* 

9-439* 

13-1 

13-1 

13-1 

13-1# 

13-1* 

13-1* 

14-1 

21-4 

21-17 

21-5 

23-6 

21-6 

23-8 

21-7 

23-11 

21-7 

23-14 

21-9 

23-16 

21-10 

23-18 

8-127 

8-154 

8-185 

23-42# 





8-125 8-132 8-185 25-1# 


9-274 9-274 9-275 9-275 9-502 9-307 9-439 


6 
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DRY 

4-577# 

9-165 

9-165 


9-440 



OSUR 

4-513# 

6-0 

9-23 

OTOO 

4-^6# 



0T01 

4-«7# 



DT02 

4-628# 



DT03 

4-629# 



DT04 

4-630# 



0T05 

4-631# 



0T06 

0T07 




DT08 

4-634# 



DTI 

8-6 

8-20 

8-55 

0T13 

8-76 

8-98 

23-32# 

DTK 

8-83 

23-33# 


0T17 

8-105 

8-112 

23-34# 

0T2 

8-13 

8-27 

8-170 

0T24 

8-140 

23-35# 


DT25 

8-147 

23-36# 


DT30 

8-163 

8-212 

8-226 

DT34 

8-191 

23-38# 


CT35 

8-198 

8-205 

23-39# 

DT40 

8-219 

23-40# 


0T5 

8-34 

23-29# 


DT6 

8-41 

23-30# 


0T7 

8-48 

23-31# 


DTE 

4-601# 



OVA 

4-566# 



OVC 

4-651# 



ECH 

4-595# 



ECl 

4-662# 



EMI 

8-4 

22-3# 


EM10 

8-53 

22-10# 


EH11 

8-60 

22-11# 


EMI 2 

8-67 

22-12# 


EMI 3 

8-74 

22-13# 


EMI 4 

8-81 

22-14# 


EMI 5 

8-88 

22-15# 


EMI 6 

8-95 

22-16# 


EMI 7 

8-103 

22-18# 


EM2 

8-11 

22-4# 


EM20 

8-110 

22-19# 


EM21 

8-117 

22-20# 


EM22 

8-124 

22-21# 


EM23 

8-131 

22-22# 


EK24 

8-138 

22-23# 


EM25 

8-145 

22-24# 


EM3 

8-18 

22-5# 


EM50 

8-161 

22-25# 


EM31 

8-168 

22-26# 


EM32 

8-175 

22-27# 


EM33 

8-182 

22-28# 


EM34 

8-189 

22-29# 


EM35 

8-196 

22-30# 


EM36 

8-203 

22-31# 


EM37 

8-210 

22-32# 



9-215 9-215 9-216 9-216 

8-62 8-69 8-90 8-119 

8-177 23-28# 

23-37# 


7 


SEQ 0084 


9-274 9-274 9-275 9-275 9-302 9-307 9-439 


8-126 8-133 8-184 23-27# 




7 


SEQ 0085 


11 - 6 * 

9-295 

11-15* 

9-439 

11-24* 

9-440 

12-1 

10-1 

12-1 

12 - 1 * 

12 - 1 * 


20-2 

20-2 

20-2 

20-2 

20-2 

20-2 

lo-l 

20-2 

20-2 

20-2 

20-2 

20-2 

20-2 


13-1* 

13-1* 






9-216 

10-1 

9-216* 

9-274 

9-274* 

9-275 

9-275* 

9-295 

22-16 







9-274 

9-440 

W, 

9-275 

9-275 

9-302 

9-307 

9-439 

9-439 

9-440 

9-440 

9-440 




9-274 

9-274 

9-275 

9-275 

9-275 

9-275 

9-302 



SEQ 0086 
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NOCLOC 

NOSEIZ 

NTRH 

OFO 

OPE 

OPI 

OPPRT 

OR 

PAR 

PAT 

PFECH 

PFECHI 

PFECH2 

PFECH3 

PFECH4 

PFTSTN 

P6E 

PGM 

PIP 
PIRQ 
PI ROVE 
PORTA 


PORTAI 

PORTS 


PORTBl 

PORTC 

PRO 

PR1 

PR2 

PR3 

PR4 

PR5 

PR6 

PR7 

PS 

PSEL 

PSU 

PTNBR 


PWRVEC 

R6 

R7 

RDCHR 

RDLIN 


9-59 

7-0# 

9-105 

4-&2# 

7-0# 

4-543# 

4-592# 

4-540# 

14-1 

14-1 

14-1 

14-1 

14-1 

14-1 

4-546# 

4-579# 

9-275 

4-583# 

4-513# 

4-513# 

7-0# 

9-169 

9-274 

9-275 

9-439 

9-44 

7-0# 

9-215 

9-274 

9-297 

9-439 

9-46 

7-0# 

4-513# 

4-513# 

4-513# 

4-513# 

4-513# 

4-513# 

4-513# 

4-513# 

4-513 

4-523# 

4-513# 

7-0# 

9-216* 

9-275* 

9-439* 

23-31 

4-513# 

4-513# 

4-513# 

18-1 

19-1 


21-7# 

21 - 11 # 


9-274* 9-275* 23-40 


14-1# 

14-1# 

14-1# 

14-1# 

14-1# 

14-1# 


9-165 

9-302 


9-33* 

9-215 

9-274 

9-275 

9-439 

21-5# 

9-38* 

9-215 

9-274 

9-302 

9-440 

21 - 6 # 

9-49* 


14-1* 

9-165 

9-307 


9-34 

9-215 

9-274 

9-297 

9-439 

9-39* 

9-215 

9-274 

9-302 

9-440 


9-165 


9-38 

9-215 

9-274 

9-302 

9-439 


9-40* 

9-216 

9-274 

9-302 

9-440 


9-50* 9-51* 


9-165 9-165 9-165 9-215 9-215 9-216 


9-41 

9-215 

9-274 

9-302 


9-43* 

9-216 

9-274 

9-302 

9-440 


9-45 

9-215 

9-274 

9-302 

9-440 


9-47 

9-216 

9-274 

9-307 

9-440 


9-49 

9-215 

9-274 

9-502 

9-440 


9-275 

9-307 

9-440 


’-152 

9-215 

9-275 

9-307 

9-440 


9-150 9-150 9-157 


9-216 

9-275 

9-507 

9-440 


9-216 

9-275 

9-307 

9-440 


9-216 

9-275 

9-507 


9-150 

9-216 

9-275 

9-M7 

9-440 

9-157 

9-216 

9-275 

9-439 


9-216 


9-157 

9-216 

9-275 

9-307 


9-165 

9-216 

9-275 

9-439 


9-274 

9-274 

9-275 

9-157 

9-165 

9-165 

9-216 

9-216 

9-274 

9-275 

9-275 

9-275 

9-439 

9-439 

9-439 

9-165 

9-171 

9-215 

9-274 

9-274 

9-274 

9-275 

9-275 

9-275 

9-439 

9-439 

9-439 


9-93 

9-26 

9-135 

12-9 











4-513# 

9-66* 












9-150* 

9-216* 

9-275* 

9-439* 

23-33 

9-150* 

9-216* 

9-275* 

9-439* 

23-35 

9-157* 

9-216* 

9-275* 

9-439* 

23-37 

9-157* 

9-216* 

9-275* 

9-439* 

23-39 

9-165* 

9-274* 

9-302* 

9-440* 

9-165* 

9-274* 

9-302* 

9-440* 

9-215* 

9-274* 

9-302* 

9-440* 

9-215* 

9-274* 

9-302* 

9-440* 

9-215* 

9-274* 

9-307* 

9-440* 

9-215* 

9-274« 

9-307* 

9-440* 

9-215* 

9-274* 

9-307* 

23-27 

9-215* 

9-275* 

9-M7* 

23-28 

9-216* 

9-275* 

9-439* 

23-30 


9-23* 9-23* 


20 - 2 # 

20 - 2 # 


SEQ 008.' 
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RDOCT 

RDY 

RELEPR 

RELOK 

RESRE6 

RESVEC 

RMAS 


9-32 

A-520A 

7- 0# 

8- 231# 
20 - 2 # 

A-513# 

A-686# 


9-215* 

9-215 


RMEC1 

RHECa 

RMER1 

RflER2 

RMLA 

ftffVn 

RMnR2 

RNOF 

mt 

tmsH 

nnWI. 

SAVREG 

SC 

SCO 

SCI 

SC2 

SC3 

SC4 

SCOPE 

SEIZPT 

SKI 

STACK 

START 

START1 

START2 

stklmt 

STOP 

syo 

swoo 

SUOl 

sy02 


4-696# 

4-697# 

4-685# 

4-695# 

4-687# 

4-689# 

4-694# 

4-692# 

4-591# 

4-691# 

4-680# 

20 - 2 # 

4-526# 

4-642# 

4-643# 

4-644# 

4-645# 

4-646# 

4-513# 

7-0# 

4-656# 

4- 513# 

5- 1 
5-3 
9-16 
4-513# 

12-1 

4-513# 

4-513 

4-513 

4-513 


9-170 

9-113 


9-106 20-2# 


9-215* 

9-216 


RFBA 

4-681# 


’-ill* 

RMCS1 

4-679# 

9-215* 

9-297* 

9-302* 

9-302* 


9-440* 

9-440* 

9-440* 

RMCS2 

4-683# 

9-139* 

9-150 

9-169* 

9-171* 

9-215* 


9-274* 

9-274* 

9-274* 


9-275* 

9-275* 

9-297* 

RMDA 

Rwe 

RMDC 

9-439* 

4-682# 

4-688# 

4-693# 

9-439* 

9-439* 

RflOS 

4-684# 

9-150 

9-150 

9-215 

9-215 

9-216 


9-274* 

9-275 

9-275 


9-307 

9-307 

9-307 


9-439* 

9-440 

9-440 

RMOT 

4-690# 

9-157 

9-157 


9-216* 

9-219# 


9-215* 

9-307* 

9-440* 

9-150 

9-215* 

9-274* 

9-297* 

9-439* 


9-165 

9-216 

9-275 

9-439 

9-440 

9-157 


9-216* 

9-274 


9-216* 

9-307* 

9-440* 

9-150 

9-215* 

9-274* 

9-302* 

9-439* 


9-165 

9-216 

9-275 

9-439 

9-440 

9-157 


9-274* 

9-275 


9-216* 

9-439* 

9-150 

9-215* 

9-274* 

9-302* 

9-439* 


9-216 

9-275 

9-439 

9-440 


9-172 


9-274* 

9-302 


9-216* 

9-439* 

9-150* 

9-215* 

9-274* 

9-302* 

9-440 


9-165 9-165 


tm 

9-439 

9-440 


9-215* 9-216* 9-439* 9-439* 9-440* 9-440* 


9-275* 

9-307 


9-275* 9-302* 9-302* 9-307* 9-307* 


9-274* 

9-274* 

9-275* 

9-275* 

9-297* 

9-297* 

9-297* 

9-439* 

9-439* 

9-439* 

9-439* 

9-439* 

9-440* 

9-440* 

9-150* 

9-150* 

9-150* 

9-157* 

9-157* 

9-165* 

9-165* 

9-215* 

9-216* 

9-216* 

9-216* 

9-216* 

9-216* 

9-216* 

9-274* 

9-275* 

9-275* 

9-275* 

9-275* 

9-275* 

9-275* 

9-302* 

9-307* 

9-307* 

9-307* 

9-307* 

9-439 

9-439 

9-440 

9-440* 

9-440* 

9-440* 

9-440* 

9-440* 

9-440* 

9-165 

9-165 

9-165 

9-165 

9-215 

9-215 

9-215 

9-274 

9-274 

9-274 

9-274 

9-274 

9-274 

9-274 

9-275 

9-275* 

9-297* 

9-297* 

9-302 

9-302 

9-J02 

9-439 

9-439 

9-439 

9-439 

9-439 

9-439 

9-439* 

9-440 

9-440 

9-440 

9-440 

9-440* 

9-440* 



9-179 

9-274* 

9-215 

9-275* 

9-216 

9-439* 

9-274 

9-440* 


9-311 

23-33 

zW 

9-440 

23-37 

9-444 

23-39 

23-40 

9-23 

9-14# 

9-17# 

9-19# 

9-69 

18-1 

9-137 

18-1 

9-215 

9-216 

9-274 

9-275 

9-295 

9-439 

9-UO 


12-5# 

4-513# 

4-513# 

4-513# 


J 



7 


SEO 0088 


9-439 9-439 9-440 9-440 12-1 12-1 12-1 

13-1 18-1 18-1 18 - 1 * 


7 


SEO 0089 
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TST4 

9-274# 

24-7 






TST5 

9-275# 

24-7 






TST6 

9-295# 

24-7 






TST7 

9-439# 

24-7 






T ST ADR 

9-94 

24-4# 






TSTNUM 

7-0# 

13-1* 

23-27 

23-28 

23-29 

23-30 

23-31 


23-40 







TYPDS 

10-1 

10-1 

14-1 

20-2# 




TYPE 

9-6 

9-28 

9-31 

9-36 

9-44 

9-46 

9-48 


9-298 

9-299 

9-303 

9-304 

9-310 

9-439 

9-439 


9-440 

9-440 

9-440 

10-1 

10-1 

10-1 

13-1 


14-1 

15-1 

16-1 

17-1 

18-1 

18-1 

18-1 


18-1 

18-1 

18-1 

18-1 

18-1 

18-1 

18-1 

TYPOC 

9-8 

9-103 

14-1 

14-1 

18-1 

20-2# 


TYPON 

20-2# 







TYPOS 

9-45 

9-47 

20-2# 





UO 

4-536# 







U1 

4-537# 







U3 

4-538# 







UNS 

4-603# 







UPE 

4-549# 







VV 

4-576# 

9-215 

9-215 

9-215 

9-215 

9-215 

9-216 


9-274 

9-275 

9-275 

9-275 

9-275 

9-302 

9-302 

WSET 

8-230# 

9-215 

9-215 

9-215 

9-215 

9-215 

9-216 


9-274 

9-274 

9-274 

9-274 

9-274 

9-274 

9-275 


9-302 

9-302 

9-302 

9-302 

9-302 

9-302 

9-307 

UATCH 

7-0# 

9-274 

9-274* 

9-275 

9-275* 

9-439 

9-439* 


WCE 4-550# 
WCF 4-594# 
WLE 4-600# 
URL 4-581# 


23-32 

23-33 

23-34 

23-35 

23-37 

23-38 

23-39 

9-59 

9-67 

9-79 

9-87 

9-101 

9-104 

9-105 

9-439 

9-439 

9-439 

9-439 

9-440 

9-440 

9-440 

13-1 

14-1 

14-1 

14-1 

14-1 

14-1 

14-1 

18-1 

18-1 

18-1 

19-1 

18-1 

19-1 

18-1 

20-2# 

18-1 

18-1 

18-1 


9-216 

9-216 

9-216 

9-216 

9-274 

9-274 

9-274 

9-302 

9-307 

9-307 

9-307 


9-274 

9-274 

9-216 

9-216 

9-275 

9-216 

9-216 

9-220# 

9-275 

9-275 

9-275 

9-275 

9-275 

9-275 

9-307 

9-307 

9-307 

9-307 

9-307 



9-440 

9-440* 

11-30 

11-32* 

11-34* 
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SSCMRE 

5-41# 

6-0 


SSCMTM 

5-41# 

6-0 

6-0 

SSESCA 

4-513# 



SSNEUT 

4-513# 

9-137 

9-215 

SSSET 

20-2 

20-2 

20-2 

SSSKIP 

4-513# 

9-439 


.SACT1 

4-502# 

5-5 


.SCATC 

4-503# 

5-1 


.SCMTA 

4-503# 

5-41 


.SEOP 

4-503# 

10-1 


.:5RR0 

4-503# 

13-1 


.SERRT 

4-502# 

14-1 


.SROOC 

4-504# 

19-1 


.SREAO 

4-504# 

18-1 


.$SAVE 

4-504# 

20-1 


.SSCOP 

4-503# 

12-1 


.STRAP 

4-504# 

20-2 


.STYPO 

4-504# 

17-1 


.STVPE 

4-503# 

15-1 


.STYPO 

4-504# 

16-1 


.EQUAT 

4-502# 

4-513 


.HEADE 

4-502# 

4-510 


.SETUP 

4-502# 

4-699 


.SWRHI 

4-502# 

4-511 


.SWRLO 

4-502# 

4-511# 


AA 

9-223# 

9-274 

9-275 

BB 

9-181# 

9-215 

9-216 

CHECK 

4-122# 

9-150 

9-150 


9-439 

9-440 

9-440 

CLRATA 

4-411# 

9-297 


COMNEN 

4-513# 



ENDCOM 

4-513# 



ERROR 

4-513# 

9-115 

9-150 


9-215 

9-215 

9-216 


9-274 

9-275 

9-275 


9-307 

9-307 

9-307 

ESCAPE 

4-513# 



FF 

9-313# 

9-439 

9-440 

GETPRI 

4-513# 



GETSWR 

4-513# 

9-28 

9-28# 

nORETA 

5-7# 

6-0 


MSG 

9-121# 

9-137 

9-215 


9-440 

9-440# 


«ULT 

4-513# 



neutra 

4-267# 

9-215 

9-216 

NEUTST 

4-513# 

9-137 

9-215 

NWTST 

4-465# 

9-137 

9-215 

POP 

4-513# 

17-1 

19-1 

PUSH 

4-513# 

17-1 

19-1 

RELEAS 

4-196# 

9-215 

9-216 

REPORT 

4-513# 



SEIZE 

4-32# 

9-274 

9-275 

:lect 

4-241# 

9-150 

9-150 

9-275 

9-440 

9-275 

9-275 


SETATA 

4-444# 




6-0 6-0 6-0 

9-216 9-274 9-275 9-295 

20-2 20-2 20-2 20-2 


9-157 

9-440 

9-157 

9-440 

9-165 

9-165 

9-150 

9-157 

9-157 

9-165 

9-216 

9-216 

9-216 

9-216 

9-275 

9-275 

9-275 

9-275 

9-439 

9-439 

9-439 

9-439 


9-215# 

9-216 

9 - 216 # 

9-274 

9-274 

9-275 

9-302 

9-307 

9-216 

9-274 

9-275 

9-295 

9-216 

9-274 

9-275 

9-295 
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9-439 9-440 9-444 

20-2 20-2 20-2 20-2 20-2 20 - 2 # 


9-165 

9-165 

9-215 

9-216 

9-439 

9-439 

9-439 

9 165 
9-274 
9-275 
9-440 

9-165 

9-274 

9-275 

9-440 

9-165 

9-274 

9-302 

9-440 

9-175 

9-274 

9-302 

9-440 

9-215 

9-274 

9-302 

12-1 

9-215 

9-274 

9-302 

9-215 

9-274 

9-307 

9-274# 

9-275 

9-275# 

9-278# 

9-295 

9-439 

9-439# 

9-439 

9-439 

9-440 

9-440 

9-444 





9-215 

9-439 

9-215 

9-439 

9-216 

9-440 

9-216 

9-440 

9-274 

9-440 

9-274 

9-440 

9-274 

9-440 
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SEQ 0091 


I 


20-2 

20-2 

20-2 

20-2 

20-2 

20 - 2 # 1 

9-215 

9-216 

9-216 

9-274 

9-274 

9-275 9-275 ‘ 

9 - 4^4 

10-1 

12-1 

13-1 

14-1 

15-1 16-1 1 

20-1 

20-2 





